data(jv73)
s.label(jv73$xy, contour = jv73$contour, incl = FALSE,
clab = 0.75)
s.class(jv73$xy, jv73$fac.riv, add.p = TRUE, cell = 0,
axese = FALSE, csta = 0, cpoi = 0, clab = 1.25)
w <- split(jv73$morpho, jv73$fac.riv)
w <- lapply(w, function(x) t(dudi.pca(x, scann = FALSE)))
w <- ktab.list.dudi(w)
kplot(sepan(w), perm = TRUE, clab.r = 0, clab.c = 2, show = FALSE)
Run the code above in your browser using DataLab