自己瞎编的，得到的只有最后一列的结果，要的是所有列结果的综合，新手求问。
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)

}
求教