新手求问

sj<-function (data)
{  for(i in 1:ncol(data)){
        dataset<-data[[i]]
    nzd <- which(dataset != 0)
    k <- length(nzd)
    z <- dataset[nzd]}
    list(demand = z, t = nzd)

}
求教