tests/testthat/test_weighted_total_winsorized.R

context("weighted_total_winsorized")
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_total_winsorized(x, x, LB = 0.2), 0.09, tolerance=1e-05)
})
martinSter/robsurvey documentation built on Oct. 11, 2019, 4:45 p.m.