https://github.com/cran/pcdpca
Tip revision: 994e42225542c81cc02708658f24865826071d4c authored by Lukasz Kidzinski on 03 September 2017, 04:17:18 UTC
version 0.4
version 0.4
Tip revision: 994e422
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))
