tests/testthat/test-mean_ci.R

context("mean_ci")

test_that("mean_ci calculates the true mean it should",{

  x <- rnorm(n = 10, mean = 150, sd = 10)
  expect_equal(mean_ci(x, bootstraps = 100)[['estimate']], mean(x))

})

Try the phenesse package in your browser

Any scripts or data that you put into this service are public.

phenesse documentation built on July 29, 2020, 1:06 a.m.