powered by
ktab
ktab.list.df(obj, rownames = NULL, colnames = NULL, tabnames = NULL, w.row = rep(1, nrow(obj[[1]])), w.col = lapply(obj, function(x) rep(1 / ncol(x), ncol(x))))
data(jv73) l0 <- split(jv73$morpho, jv73$fac.riv) l0 <- lapply(l0, function(x) data.frame(t(scalewt(x)))) kta <- ktab.list.df(l0) kplot(sepan(kta[c(2,5,7,10)]), perm = TRUE, clab.r = 1, clab.c = 1.5)
Run the code above in your browser using DataLab