context("sjmisc, row_sums")
library(sjmisc)
dat <- data.frame(
c1 = c(1,2,NA,4),
c2 = c(NA,2,NA,5),
c3 = c(NA,4,NA,NA),
c4 = c(2,3,7,8),
c5 = c(1,7,5,3)
)
test_that("row_sums", {
tmp <- row_sums(dat, n = 4, append = FALSE)
expect_equal(sum(is.na(tmp[[1]])), 2)
expect_equal(sum(tmp[[1]], na.rm = TRUE), 38)
tmp <- row_sums(dat, n = .4, append = FALSE)
expect_equal(sum(is.na(tmp[[1]])), 0)
expect_equal(sum(tmp[[1]], na.rm = TRUE), 54)
# this one is R-behaviour, because round(2.5) = 2
tmp <- row_sums(dat, n = .5, append = FALSE)
expect_equal(sum(is.na(tmp[[1]])), 0)
expect_equal(sum(tmp[[1]], na.rm = TRUE), 54)
tmp <- row_sums(dat, n = .51, append = FALSE)
expect_equal(sum(is.na(tmp[[1]])), 1)
expect_equal(sum(tmp[[1]], na.rm = TRUE), 42)
tmp <- row_sums(dat, n = 3, append = FALSE)
expect_equal(sum(is.na(tmp[[1]])), 1)
expect_equal(sum(tmp[[1]], na.rm = TRUE), 42)
expect_message(row_sums(dat[, 1, drop = FALSE], n = 0))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.