tests/testthat/test-cdist.R

# testthat::test_that("cdist works", {
#   
#   testcase1 <- c(-1.95996398454005, 1.95996398454005)
#   testcase2 <- c(-4.03214298355523, -2.57058183563631, -2.01504837333302, 2.01504837333302, 
#                  2.57058183563631, 4.03214298355523)
#   testcase3 <- c(-2.67779327094084, -2.00855911210076, -1.6759050251631, 1.6759050251631, 
#                  2.00855911210076, 2.67779327094084)
#   testcase4 <- c(-3.18244630528371, 2.57058183563631, -2.22813885198627, 2.08596344726586
#   )
#   testcase5 <- c(304.003601545995, 695.996398454005)
#   testcase6 <- c(0.215795282623898, 0.351846317749271, 7.81472790325118, 9.34840360449614
#   )
#   testcase7 <- c(-2.07387306790403, 2.07387306790403)
#   testcase9 <- structure(list(`mean of dfexample` = 9.79992935127334, lower = 8.94278258043651, 
#                               upper = 10.6570761221102, level = 0.95), class = "data.frame", row.names = c(NA, 
#                                                                                                            -1L))
#   testcase10 <- c(-2.07387306790403, 2.07387306790403)
#   # expect_equal(ignore_attr = TRUE, testcase1, cdist( "norm", .95))
#   # expect_equal(ignore_attr = TRUE, testcase2, cdist( "t", c(.90, .95, .99), df=5))
#   # expect_equal(ignore_attr = TRUE, testcase3, cdist( "t", c(.90, .95, .99), df=50))
#   # expect_equal(ignore_attr = TRUE, testcase4, cdist( "t", .95, df=c(3,5,10,20), plot = FALSE))
#   # expect_equal(ignore_attr = TRUE, testcase5, cdist( "norm", .95, mean=500, sd=100 ))
#   # expect_equal(ignore_attr = TRUE, testcase6, cdist( "chisq", c(.90, .95), df=3 ))
#   # expect_equal(ignore_attr = TRUE, testcase7, cdist("t", p = 0.95, df=22))
#   # expect_equal(ignore_attr = TRUE, testcase9, confint(t.test(dfexample)))
#   # expect_equal(ignore_attr = TRUE, testcase10, cdist("t", p = 0.95, df=22, verbose = TRUE))
#   
#   #wrapped_expect_doppelganger("cdist1", cdist( "norm", .95))
#   #wrapped_expect_doppelganger("cdist2", cdist( "t", c(.90, .95, .99), df=5))
#   #wrapped_expect_doppelganger("cdist3", cdist( "t", c(.90, .95, .99), df=50))
#   #wrapped_expect_doppelganger("cdist5", cdist( "norm", .95, mean=500, sd=100 ))
#   #wrapped_expect_doppelganger("cdist6", cdist( "chisq", c(.90, .95), df=3 ))
#   #wrapped_expect_doppelganger("cdist7", cdist("t", p = 0.95, df=22))
#   #wrapped_expect_doppelganger("cdist8", mean(dfexample) + cdist("t", p = 0.95, df=22) * sd(x) / sqrt(23))
#   #wrapped_expect_doppelganger("cdist10", cdist("t", p = 0.95, df=22, verbose = TRUE))
#   
# })

Try the mosaic package in your browser

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

mosaic documentation built on Nov. 10, 2023, 1:11 a.m.