R/rss_set.R

rss_set<-function(u){
  n1<-length(u)
  n2<-length(u[[1]])
  n3<-length(u[[1]][[1]])
  expected<-n2*n3
  unlists<-table(unlist(lapply(u,unlist)))
  sqrt(sum(unlists^2))
}
JARS3N/gener8 documentation built on May 16, 2019, 4:03 a.m.