ktab.pta(X, scannf = TRUE, nf = 2)
## S3 method for class 'pta':
plot(x, xax = 1, yax = 2, option = 1:4, \dots)
## S3 method for class 'pta':
print(x, \dots)ktab where the arrays have 1) the same dimensions 2) the same names for columns 3) the same column weightingsdata(meaudret)
wit1 <- withinpca(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