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)
Run the code above in your browser using DataLab