data(meaudret)
wit1 <- within.pca(meaudret$mil, meaudret$plan$dat,
scan = FALSE, scal = "partial")
kta1 <- ktab.within(wit1, colnames = rep(c("S1","S2","S3","S4","S5"), 4))
unclass(kta1)
# See pta
plot(wit1)
Run the code above in your browser using DataLab