新手求问，以下数据，编写函数，结果是每一列的非零数字以及其前面的序列号的综合

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

                 


自己瞎编的，得到的只有最后一列的结果，要的是所有列结果的综合，新手求问。
sj<-function (data)
{  for(i in 1:ncol(data)){
        dataset<-data[]
    nzd <- which(dataset != 0)
    k <- length(nzd)
    z <- dataset[nzd]}
    list(demand = z, t = nzd)

}
求教

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：序列号 序列号