r - R：R中的循环，找不到对象

Question

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

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])
}

标签： rloopsobject