Nothing
################################################################################
context("COLSTATS")
set.seed(SEED)
################################################################################
# Simulating some data
x <- matrix(rnorm(100, 100, 5), 10, 10)
ind <- 1:5
# variables to test
ALL.FUN <- c("sum", "var")
################################################################################
test_that("Equality with matrix operations", {
for (t in TEST.TYPES) {
X <- `if`(t == "raw", asFBMcode(x), big_copy(x, type = t))
for (f in ALL.FUN) {
eval(parse(text = sprintf(
"expect_equal(big_colstats(X)$%s, apply(X[,], 2, %s))", f, f)))
eval(parse(text = sprintf(
"expect_equal(big_colstats(X, ind)$%s, apply(X[ind, ], 2, %s))", f, f)))
eval(parse(text = sprintf(
"expect_equal(big_colstats(X, ind, ncores = 2)$%s, apply(X[ind, ], 2, %s))", f, f)))
}
}
})
################################################################################
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.