context("weighted_mean")
library(robsurvey)
test_that("Function outputs correct result for example", {
x <- c(0.1, 0.35, 0.05, 0.1, 0.15, 0.05, 0.2)
expect_equal(weighted_mean(x, x), sum(x*x)/sum(x), tolerance=1e-05)
})
test_that("Weighted mean is equal to mean if weights are all 1", {
x <- c(0.1, 0.35, 0.05, 0.1, 0.15, 0.05, 0.2)
w <- c(1, 1, 1, 1, 1, 1, 1)
expect_equal(weighted_mean(x, w), mean(x), tolerance=1e-05)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.