tests/testthat/test-crps_llogis.R

context("CRPS for log-logistic distribution")

FF <- function(x) plogis(log(x), .1, .9)

test_that("computed values are correct", {
  const <- 1.13295277
  expect_equal(crps_llogis(3, .1, .9), const)
})

Try the scoringRules package in your browser

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

scoringRules documentation built on May 31, 2023, 6:06 p.m.