tests/testthat/test-list-irlba.R

context("list-irlba")

skip_on_cran()

skip_if_not_installed("modeltests")
library(modeltests)

skip_if_not_installed("irlba")

mat <- scale(as.matrix(USJudgeRatings))
s <- svd(mat)
p <- prcomp(mat)
i <- irlba::irlba(mat)

test_that("tidy_irlba", {
  check_arguments(tidy_irlba)

  tdu <- tidy(i, matrix = "u")
  check_tidy_output(tdu)
  check_dims(tdu, 215, 3)

  tdd <- tidy(i, matrix = "d")
  check_tidy_output(tdd)
  check_dims(tdd, 5, 4)

  tdv <- tidy(i, matrix = "v")
  check_tidy_output(tdv, strict = FALSE)
  check_dims(tdv, 60, 3)
})

test_that("prcomp/svd/irlba consistency", {
  expect_equal(colnames(tidy(i)), colnames(tidy(p)))
  expect_equal(colnames(tidy(i)), colnames(tidy(s)))
  expect_equal(colnames(tidy(s)), colnames(tidy(p)))

  expect_equal(
    colnames(tidy(i, matrix = "d")),
    colnames(tidy(p, matrix = "d"))
  )
  expect_equal(
    colnames(tidy(i, matrix = "d")),
    colnames(tidy(s, matrix = "d"))
  )
  expect_equal(
    colnames(tidy(s, matrix = "d")),
    colnames(tidy(p, matrix = "d"))
  )

  expect_equal(
    colnames(tidy(i, matrix = "v")),
    colnames(tidy(p, matrix = "v"))
  )
  expect_equal(
    colnames(tidy(i, matrix = "v")),
    colnames(tidy(s, matrix = "v"))
  )
  expect_equal(
    colnames(tidy(s, matrix = "v")),
    colnames(tidy(p, matrix = "v"))
  )
})

Try the broom package in your browser

Any scripts or data that you put into this service are public.

broom documentation built on Aug. 30, 2022, 1:07 a.m.