R:R中的循环，未找到对象

我的目的是找到向量s，但结果是找不到对象y。 请注意，data.nbin是一个向量（，10）

set.seed（124）
data.nbin您需要首先设置变量
y
。例如
y=list（）
或者您的行
y[i]，因为没有定义y。把这个放在forloop之前：
y
set.seed(124)
data.nbin<-rnbinom(n=10,size=6.230651,mu=77.896194)
prob=6.23065/(6.23065+77.896194)
t=10.25

for (i in (1:10)) {
  y[i]<-data.nbin[i]
  for (j in (1:length(y[i]))){
  time.happen<-runif(y[i],min = 0,max=10.25)
  time.report<-rexp(y[i],rate=0.2587)
  matrix<-cbind(time.happen,time.report)
  index<-which((ifelse(matrix[,2] >= 10.25,1,0)) !=0, TRUE)
  t=length(index)
  i=i
  for (o in (1:length(index))){
                c=rlnorm(1, 14.4257740, 0.7897719)
                u=(time.report[index]-10.25)
                ct=((1+0.05)^(u))*c
                }
  s[i]=sum(ct)}
  return(s[i])
}