context("simulate")
test_that("working", {
tmpParas <- parameterValues
tmpParas[] <- c(0,3,0,0,0,0.01)
simData <- simulate(lgcm,parameterValues=tmpParas)
yHat <- simData[,'t']*tmpParas[2]
expect_true(all.equal(yHat,simData[,'y'],tolerance=6,scale=1))
})
test_that("no GPPM model as input", {
expect_error(simData <- simulate('muI',parameterValues=parameterValues),'no applicable method')
})
test_that("missing parameter values", {
expect_error(simData <- simulate(lgcm,parameterValues=parameterValues[1:3]), 'The parameters')
})
test_that("invalid parameter name", {
names(parameterValues)[3] <- 'Haha'
expect_error(simData <- simulate(lgcm,parameterValues=parameterValues), 'The parameters')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.