ktab
.pta(X, scannf = TRUE, nf = 2)
plot.pta (x, xax = 1, yax = 2, option = 1:4, ...)
print.pta (x, ...)
ktab
where the arrays have 1) the same dimensions 2) the same names for columns 3) the same column weightingsdata(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))
kta2 <- t(kta1)
pta1 <- pta(kta2, scann = FALSE)
pta1
plot(pta1)
Run the code above in your browser using DataLab