新人求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

小弟以前没有接触过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编辑过]

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：missing RETURN Count value EXCEL 求助 新人

看源文件终于看到去掉框框的内容了...
先是选一部分变量构造了一个数据框
然后在这里面筛选变量
最后返回经过筛选的数据