tests/testthat/test.weighted_ecdf.R

# Tests for weighted ecdfs
#
# Author: mjskay
###############################################################################


test_that("weighted_ecdf works", {
  expect_error(weighted_ecdf(NULL), "Need at least 1 or more values")

  expect_equal(weighted_ecdf(1)(0:2), c(0, 1, 1))
  expect_equal(weighted_ecdf(c(1, 2, 2, 3), 1:4)(0:4), c(0, 1, 6, 10, 10)/10)
})

test_that("quantile(<weighted_ecdf>) works", {
  expect_equal(
    quantile(weighted_ecdf(c(1, 2, 2, 3), 1:4), ppoints(10)),
    weighted_quantile(c(1, 2, 2, 3), weights = 1:4, ppoints(10))
  )
})

Try the ggdist package in your browser

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

ggdist documentation built on July 4, 2024, 9:08 a.m.