tests/testthat/test-pca.R

In mbadge/AnalysisToolkitR: Objects and Functions for general data analysis

library(AnalysisToolkit)
library(magrittr)
context("PCA computation and manipulation")


num_mtx <- replicate(10, rnorm(20))
num_df <- num_mtx %>% 
    as.data.frame %>% 
    tibble::add_column(., img_id=letters[1:nrow(.)])


# Test Blocks ----
test_that("test computation of pca rotation", {
    expect_is(fit_prcomp(num_mtx, id_coln=NULL), "prcomp")
    expect_is(fit_prcomp(num_df), "prcomp")
    expect_is(fit_prcomp(mtcars, id_coln="mpg"), "prcomp")
})

prcomp_std <- fit_prcomp(num_df)
# prcomp_std <- fit_prcomp(num_mtx, id_coln=NULL)
# prcomp_mtcars <- fit_prcomp(mtcars, id_coln="mpg")

test_that("test prcomp prediction", {
    predict_pca(prcomp_std, num_df)
    # predict_pca(prcomp_mtcars, mtcars, id_coln="mpg")
})