powered by
get.wt(s)
data("S") s<-list() s[[1]]<-S ##wt <- get.wt(s)
Run the code above in your browser using DataLab