context("Class Environment")
env<- Env()
test_that("constructor", {
expect_is(Env(), "Env")
expect_is(Env(varJ=.1), "Env")
expect_is(Env(seasonAmplitude=.3), "Env")
expect_is(Env(seasonRange=matrix(c(0,1, .4,1, .8,1, 1, 1), 2, 2, byrow=TRUE)), "Env") ## ERROR
expect_is(Env(varJ=.1, seasonAmplitude=.3), "Env")
expect_is(Env(varJ=1), "Env") # parameters out of the Beta distribution domain
expect_error(Env(seasonRange=c(0,1)), "Env") # mean and range are redundant parameters on a sinusoidal function
expect_is(Env(S3Part(env)), "Env")
expect_equivalent(Env(S3Part(env)), env)
})
test_that("subsetting", {
expect_is(env[c(1,4,8),], "Env")
expect_is(head(env), "Env")
expect_is(env[1:10,], "Env")
expect_is(env$seasonAmplitude, "numeric")
expect_is(env[[2]], "numeric")
})
test_that("seasonal pattern", {
expect_is(seasonalPattern(env), "matrix")
expect_is(seasonalPattern(env, resolution=365), "matrix")
expect_is(seasonalPattern(env, cicles=2), "matrix")
expect_is(seasonOptimCal(env), "list")
expect_is(seasonOptimCal(env, resolution=12, nSteps=3, interval=1, criterion="maxFirst"), "list")
expect_is(seasonOptimCal(env, resolution=12, nSteps=3, interval=3, criterion="maxFirst"), "list")
expect_is(seasonOptimCal(env, resolution=12, nSteps=3, interval=1, criterion="maxMean"), "list")
expect_is(seasonOptimCal(env, resolution=12, nSteps=3, interval=3, criterion="maxMean"), "list")
env<- data.frame(Env())
expect_is(seasonalPattern(env), "matrix")
expect_is(seasonalPattern(env, resolution=365), "matrix")
expect_is(seasonalPattern(env, cicles=2), "matrix")
expect_is(seasonOptimCal(env), "list")
expect_is(seasonOptimCal(env, resolution=12, nSteps=3, interval=1, criterion="maxFirst"), "list")
expect_is(seasonOptimCal(env, resolution=12, nSteps=3, interval=3, criterion="maxFirst"), "list")
expect_is(seasonOptimCal(env, resolution=12, nSteps=3, interval=1, criterion="maxMean"), "list")
expect_is(seasonOptimCal(env, resolution=12, nSteps=3, interval=3, criterion="maxMean"), "list")
})
test_that("plot", {
expect_is(plot(env), "NULL")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.