求教大神们：

我想对一个data.frame的每一行数 进入如下计算 该行前五个数  每个数乘以0.06 后十个数每个数乘以0.07  然后将这两个值相加 得到一个新的数  因为对行进行重复计算 我就运了apply() 函数

但是我的代码出现了错误

我写的是：
SeansonNet <- apply(SeasonBack[,2:ncol(SeasonBack)],1,function(x) 0.06*sum(SeasonBack[x,(2):(6)])+0.07*sum(SeasonBack[x,(7):(16)]))  
报错为：
Error in xj[i] : only 0's may be mixed with negative subscripts

请问要怎么改呢？我查到出这个问题大多数因为没有对类似i-1的写法加上括号 但是我没有这样的表达呀 有2：6 我都加上了括号 可是还是报这个错误


谢谢各路大神呀！！！