tests/testthat/test_066power_estimation.R

In elsayed-lab/hpgltools: A pile of (hopefully) useful R functions

start <- as.POSIXlt(Sys.time())
context("066power_estimation.R")

small_combined <- new.env()
tt <- load(file = "065_small_combined.rda", envir = small_combined)
small_combined <- small_combined[["small_combined"]]
test_proper <- simple_proper(small_combined, reps = c(3,5), nsims = 10)
expected <- 6
actual <- nrow(test_proper[[1]][["power_table"]])
test_that("Minimal check for proper functionality:", {
  expect_equal(expected, actual)
})

expected <- "recordedplot"
actual <- class(test_proper[[1]][["powerfd_plot"]])
test_that("Minimal check for proper plotting:", {
  expect_equal(expected, actual)
})

end <- as.POSIXlt(Sys.time())
elapsed <- round(x = as.numeric(end - start))
message("\nFinished 066power_estimation.R in ", elapsed,  " seconds.")