context("counts")
table_ <- function(x) {
c(table(x, useNA="ifany"))
}
n <- 1E2
set.seed(123)
x <- round( rnorm(n), 0 )
expect_identical( counts(x), table_(x) )
x <- as.integer(x)
expect_identical( counts(x), table_(x) )
x <- as.character(x)
expect_identical( counts(x), table_(x) )
x <- as.logical( as.numeric(x) )
expect_identical( counts(x), table_(x) )
x <- round( rnorm(n), 0 )
x[ sample(1:length(x), 10) ] <- NA
expect_identical( counts(x), table_(x) )
x <- as.integer(x)
expect_identical( counts(x), table_(x) )
x <- as.character(x)
expect_identical( counts(x), table_(x) )
x <- as.logical( as.numeric(x) )
expect_identical( counts(x), table_(x) )
x <- replicate(10, round( rnorm(n), 0 ), simplify=FALSE)
expect_identical(
counts(x),
lapply(x, table_)
)
## test small, large numerics
expect_identical( counts(1E-20), c(table(1E-20)) )
expect_identical( counts(1E20), c(table(1E20)) )
## test logical
expect_identical( counts(TRUE), c(table(TRUE)) )
expect_identical( counts(FALSE), c(table(FALSE)) )
## test NA, NaN
expect_identical( counts( c(1E-20, NA, NaN) ), c(table(c(1E-20, NA, NaN), useNA="ifany") ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.