inst/unitTests/test_selectCommonComps.R

data(STATegRa_S3)

test_selectCommonComps <- function() {
    checkEquals(selectCommonComps(Block1.PCA, Block2.PCA, Rmax=3)$common, 2)
}
llrs/STATegRa documentation built on May 29, 2019, 3:42 a.m.