https://github.com/cran/pcdpca
Tip revision: ce9d67e15a5402f4d12e62fe9882ada23b12971e authored by Lukasz Kidzinski on 26 November 2016, 23:06:38 UTC
version 0.2.1
version 0.2.1
Tip revision: ce9d67e
stat.R
X = t(matrix(1:120,nrow=6))
Y = pcdpca:::stat2pc(X,2)
stopifnot(Y[2,1] == 2)
stopifnot(Y[3,2] ==9)
stopifnot(dim(Y) == c(40,3))
Y = pcdpca:::pc2stat(X,2)
stopifnot(Y[2,1] == 13)
stopifnot(Y[3,2] == 26)
stopifnot(dim(Y) == c(10,12))
