Nothing
context("summarize")
set.seed(1)
nRows <- 5
nCols <- 10
percentNA <- 0.15
summarize_test <- function(X) {
res <- data.frame(
freq_na = vector(mode = "double", length = ncol(X)),
allele_freq = vector(mode = "double", length = ncol(X)),
sd = vector(mode = "double", length = ncol(X))
)
for (col in seq_len(ncol(X))) {
x <- X[, col]
nMissing <- sum(is.na(x))
res$freq_na[col] <- nMissing / length(x)
res$allele_freq[col] <- sum(x, na.rm = TRUE) / ((length(x) - nMissing) * 2)
res$sd[col] <- sd(x, na.rm = TRUE)
}
return(res)
}
test_that("summarize", {
for (mode in c("integer", "double")) {
X <- matrix(data = rnorm(nRows * nCols, sd = 100), nrow = nRows, ncol = nCols)
X[sample(seq_along(X), size = as.integer(length(X) * percentNA))] <- NA
storage.mode(X) <- mode
for (nCores in seq_len(2)) {
hasCores(nCores)
expect_equal(
summarize(X, nCores = nCores),
summarize_test(X)
)
}
}
})
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.