R 循环语句的问题，求助！

大侠：

    我的数据框是由256列构成的（名称为bb1，bb2, bb3,..., bb256），我要对每一列分别作极大似然估计，用命令一个一个处理太费时间了，想请教一下怎样用for循环啊，我写个代码，但不知道错在哪里，

for(i in 6:256(bb)){

dd.res<-nlminb(c(4,2),LL,data=bb[i],lower=c(0.0001,-Inf,0.0001,Inf,-Inf,0.0001),upper=c(15,Inf,Inf,Inf,Inf))
+ dd.res$par
+ }
错误: 不适用于非函数


谢谢！

首先要解决一个问题：在循环语句中的那个命令
nlminb(c(4,2),LL,data=bb[i],lower=c(0.0001,-Inf,0.0001,Inf,-Inf,0.0001),upper=c(15,Inf,Inf,Inf,Inf))
是不是正确的？
如果是正确的，那就是出现在循环语句中
请检查“bb[i]”，这个似乎不对，应该是bb[,i]（如果是用列数据的话）
另外dd.res也应该是个list吧，似乎没有定义

瞅瞅先。好久没有写程序了。

关注中！！！！！！！！！

怎么都不会啊，

直接用a[,i]提取每一列试试看呀

哈哈，我是刚学R，能不能给个详细的代码啊？那个a[,i]是不是要先定义啊？

这code写的。
为什么upper和lower不一样长阿？为什么比start长呢? 你的数据到底叫什么阿？这个bb1啥的都是列名字吧？
再改改吧

# define likelihood function(normal distribution)
       log.likelihood<-function(para,x){
            y<-sum(-log((1/sqrt(2*pi*para[2]))*exp(-(x-para[1])^2/sqrt(2*pi*para[2]))))
      }
vector<-rnorm(1000,2,0.5);
a<-matrix(vector,100,10);
b<-numeric(20);
b<-matrix(b,2,10);
p<-c(1.8,0.6);
for(i in 1:10){
            
            out<-nlm(log.likelihood,p,a[,i])
            parameter<-out$estimate;
            b[1,i]<-parameter[1];b[2,i]=parameter[2];
            }

看看这个希望对你有帮助，另外
你写的没有定义优化的目标函数，故无法运行

还有一个简单的方法，用apply函数
例如
apply(bb,2,FUNCTION,...)
具体用法参见help