Nothing
context("Check utilities")
# use old RNG method for sample (for test reproducibility)
if ("sample.kind" %in% names(formals(RNGkind))){
suppressWarnings(RNGkind(sample.kind = "Rounding"))
}
test_that("check logsumexp", {
expect_is(logsumexp(c(1,2)), "numeric")
expect_equal(length(logsumexp(c(1,2))), 1)
expect_equal(round(logsumexp(c(1,2)), 2), 2.31)
expect_error(logsumexp("ok"))
})
test_that("check softmax", {
expect_is(softmax(c(1,2)), "numeric")
expect_equal(length(softmax(c(1,2))), 2)
expect_equal(round(softmax(c(1,2)), 2)[1], 0.27)
expect_is(softmax(matrix(1, nrow = 2, ncol = 2)), "matrix")
expect_equal(dim(softmax(matrix(1, nrow = 2, ncol = 2))), c(2,2))
expect_equal((softmax(matrix(1, nrow = 2, ncol = 2)))[1,1], 0.5)
expect_error(softmax("ok"))
expect_error(softmax(array(1, dim = c(2, 2, 2))))
})
test_that("check iftrue", {
expect_equal(iftrue(TRUE,1), 1)
expect_equal(iftrue(1,2), 1)
})
test_that("check AICc", {
data(rodents)
set.seed(123)
lda_data <- rodents$document_term_table
r_LDA <- LDA_set(lda_data, topics = 2, nseeds = 1)[[1]]
expect_is(AICc(r_LDA), "numeric")
expect_equal(round(AICc(r_LDA)), 95865)
expect_error(AICc("ok"))
})
test_that("check modalvalue", {
xx <- c(1, 2, 3, 4, 5, 4, 3, 2, 1, 2)
expect_equal(modalvalue(xx), 2)
expect_error(modalvalue("ok"))
})
test_that("check document_weights", {
data(rodents)
lda_data <- rodents$document_term_table
doc_weights <- document_weights(lda_data)
expect_equal(round(mean(doc_weights), 3), 1)
expect_equal(round(max(doc_weights), 3), 3.543)
expect_equal(round(min(doc_weights), 3), 0.151)
expect_equal(length(doc_weights), 436)
expect_error(document_weights("ok"))
})
test_that("check messageq", {
expect_message(messageq())
expect_message(messageq("ok"))
expect_error(messageq("ok", ""))
expect_message(messageq("ok", quiet = FALSE))
expect_silent(messageq("ok", quiet = TRUE))
})
test_that("check mirror_vcov", {
dummy <- "x"
class(dummy) <- "dummy"
y <- 1:10
x <- 101:110 + rnorm(length(y))
mod <- lm(y ~ x)
vcv <- mirror_vcov(mod)
expect_equal(isSymmetric(vcv), TRUE)
expect_error(mirror_vcov("ok"))
expect_warning(mirror_vcov(dummy))
data(rodents)
lda_data <- rodents$document_term_table
document_term_table <- rodents$document_term_table
document_covariate_table <- rodents$document_covariate_table
topics <- 2
nseeds <- 1
formulas <- ~ newmoon
nchangepoints <- 2
weights <- document_weights(document_term_table)
control <- list()
timename <- "newmoon"
LDAs <- LDA_set(document_term_table, topics, nseeds, list())
LDA_models <- select_LDA(LDAs, list())
control <- list(nit = 50, seed = 1)
mods <- expand_TS(LDA_models, formulas, nchangepoints)
formula <- mods$formula[[1]]
nchangepoints <- mods$nchangepoints[1]
data <- prep_TS_data(document_covariate_table, LDA_models, mods, 1)
rho_dist <- est_changepoints(data, formula, nchangepoints, timename,
weights, control)
mod <- multinom_TS(data, formula, changepoints = NULL, timename, weights,
control)
# doesnt work in 32 bit
#expect_equal(isSymmetric(vcov(mod[[1]][[1]])), FALSE)
expect_equal(isSymmetric(mirror_vcov(mod[[1]][[1]])), TRUE)
})
test_that("check normalize", {
xx <- c(1, 2, 3, 4, 5, 4, 3, 2, 1, 2)
expect_equal(mean(normalize(xx)), 0.425)
expect_equal(normalize(xx)[1], 0)
xx <- -1000:100
expect_equal(mean(normalize(xx)), 0.5)
expect_equal(round(sd(normalize(xx)), 3), 0.289)
expect_error(normalize("ok"))
})
test_that("check memoise_fun", {
expect_is(memoise_fun(sum, TRUE), "memoised")
expect_is(memoise_fun(sum, FALSE), "function")
expect_error(memoise_fun(1, TRUE))
expect_error(memoise_fun(sum, 1))
})
test_that("check check_control", {
expect_silent(check_control(list(), "list"))
expect_silent(check_control(list()))
expect_error(check_control(list(), 1))
expect_error(check_control(1, "list"))
})
test_that("check check_document_term_table", {
dtt <- "a"
expect_error(check_document_term_table(dtt))
dtt <- matrix(1:100, 10, 10)
expect_silent(check_document_term_table(dtt))
dtt[1,1] <- 1.1
expect_error(check_document_term_table(dtt))
dtt <- data.frame("dummy" = 1:100)
expect_silent(check_document_term_table(dtt))
dtt[1,1] <- 1.1
expect_error(check_document_term_table(dtt))
})
test_that("check error catching of check_topics", {
expect_error(check_topics("a"))
expect_error(check_topics(1.5))
expect_error(check_topics(1))
expect_error(check_topics(2), NA)
expect_error(check_topics(c(2, 3, 4)), NA)
expect_silent(check_topics(5))
expect_silent(check_topics(2:5))
})
test_that("check error catching of check_seeds", {
expect_error(check_seeds("a"))
expect_error(check_seeds(1.5))
expect_error(check_seeds(2), NA)
expect_error(check_seeds(c(2, 3, 4)), NA)
expect_silent(check_seeds(5))
expect_silent(check_seeds(1:5))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.