小弟以前没有接触过s-plus 但是又急看明白一个东西 里面有下面的代码 请达人帮忙逐句解释一个功能 谢谢了  很急。。。。。 

另外 这个脚本前面还有个Excel作为数据源相连 

a=IM$in1
a1=data.frame(a[,1])
a1[, "value"]=0
a1[, "pct1"]=0
a1[, "count1"]=0
a1[, "count2"]=0
count=0
for (ii in 1:nrow(a1))
{  if (is.missing(a[ii,2]))    {a1[ii,"value"]=2  }
    else
    { a1[ii,"value"]=1
      count=count+1
    }
    a1[ii, "pct1"] = count/ii
    a1[ii, "count1"] = count
    a1[ii, "count2"] = ii-count
}
a1$count1=(a1$count1>0) * (a1$count1 - 1)
a1$count2=(a1$count2>0) * (a1$count2 - 1)
a1[, "diff"] = a1$count1-a1$count2
a2=a1[13:nrow(a1),]
for (ii in 1:12) {a2[, paste("lag",ii,sep="")]=a1$value[(13-ii):(nrow(a1)-ii)]}

return(list(out1=a2))

[此贴子已经被作者于2008-9-16 21:27:58编辑过]