tests/testthat/test_PFunction.R

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)
  }
)
LuchTiarna/PsyMetFuns documentation built on May 5, 2019, 2:43 a.m.