tests/testthat/test-crps_exp.R

context("CRPS for exponential distribution")

test_that("computed values are correct", {
  const <- 1.20701837
  expect_equal(crps_exp(3, .7), const)
  expect_equal(crps_expM(3, scale = 1 / 0.7), const)
  
  const <- 2.11137878
  expect_equal(crps_expM(3, scale = 1 / 0.7, mass = .6), const)
})

Try the scoringRules package in your browser

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

scoringRules documentation built on Sept. 18, 2024, 5:09 p.m.