context("PFunction")
singleFitData <- read.csv("../Data_testing/singleFitData.csv")
testthat::test_that(
"Basic equality",{
expect_equal(PsyMetFuns:::PFunction("gumbel_r", "ab", singleFitData$level, singleFitData$gamma[1], singleFitData$lambda[1], singleFitData$param1[1], singleFitData$param2[2]), singleFitData$hitPercentage)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.