e <- data.frame(a=runif(12),b=runif(12), z=rep(letters[13:18],2),w=rep(letters[20:23],3))
e <- data.frame(a=runif(10),b=runif(10), z=rep(letters[12:16],2),w=rep(letters[20:24],2))
sstable(e, idx.clmns=c('z','w'), ct.clmns='a')
sstable(e, idx.clmns=c('z'), ct.clmns=c('a','b'))
sstable(e, idx.clmns=c('z','w'))
e <- data.frame(a=10,b=0, z=as.factor(NA))
sstable(e, 'z', c('a','b'))
e <- data.frame(a=10,b=0, z=NA, w=NA)
sstable(e, 'z', c('a','b'))
e <- data.frame(a=runif(10),b=runif(10),m=rep(c('one','two'),5), z=factor(rep('z',10), levels=c('z','x')))
sstable(e, idx.clmns=c('m','z'))
Run the code above in your browser using DataLab