tests/testthat/test-Infusion.R

In Infusion: Inference Using Simulation

cat(crayon::yellow("test Infusion.Rd long examples:\n"))

data(densv)
data(myrnorm) # 'Test are run in an environment that inherits from the package's namespace environment'
set.seed(456)
summliksurf <- infer_surface(densv) ## infers a log-likelihood surface
currMSL <- MSL(summliksurf) ## find the maximum of the log-likelihood surface
currMSL <- refine(currMSL) ## refine iteratively

#expect_equal(currMSL$MSL$MSLE,c("mu"=4.1161537,"s2"=0.8982683),tolerance=1e-4)