context("list-svd") skip_on_cran() skip_if_not_installed("modeltests") library(modeltests) mat <- scale(as.matrix(USJudgeRatings)) s <- svd(mat) p <- prcomp(mat) test_that("tidy_svd", { check_arguments(tidy_svd) tdu <- tidy(s, matrix = "u") tdd <- tidy(s, matrix = "d") tdv <- tidy(s, matrix = "v") check_tidy_output(tdu) check_tidy_output(tdd) check_tidy_output(tdv, strict = FALSE) check_dims(tdu, 516, 3) check_dims(tdd, 12, 4) check_dims(tdv, 144, 3) })
Generated by dwww version 1.15 on Thu May 23 02:16:21 CEST 2024.