## Test Messages ----
test_that("srFunShow() messages",{
expect_error(srFunShow("Derek"),"should be one of")
expect_error(srFunShow(type="BevertonHolt",param=0),"must be from")
expect_error(srFunShow(type="BevertonHolt",param=5),"must be from")
expect_error(srFunShow(type="Ricker",param=0),"must be from")
expect_error(srFunShow(type="Ricker",param=4),"must be from")
})
test_that("srFuns() messages",{
## wrong type
expect_error(srFuns(type="Derek"),"should be one")
## wrong parameterization choices
expect_error(srFuns(type="BevertonHolt",param=0),"must be in")
expect_error(srFuns(type="BevertonHolt",param=5),"must be in")
expect_error(srFuns(type="BevertonHolt",param=c(1,3)),"Only one")
expect_error(srFuns(type="Ricker",param=0),"must be in")
expect_error(srFuns(type="Ricker",param=4),"must be in")
expect_error(srFuns(type="Ricker",param=c(1,3)),"Only one")
expect_warning(srFuns(type="Shepherd",param=2),"param=1")
expect_warning(srFuns(type="Saila",param=2),"param=1")
expect_warning(srFuns(type="independence",param=2),"param=1")
})
test_that("srStarts() messages",{
CodNorwegian$fyear <- factor(CodNorwegian$year)
## Asked for a dynamicPlot, which now does not exist
expect_warning(srStarts(recruits~stock,data=CodNorwegian,dynamicPlot=TRUE),
"functionality has been moved to")
## wrong type
expect_error(srStarts(type="Derek"))
## wrong parameterization choices
expect_error(srStarts(recruits~stock,data=CodNorwegian,
type="BevertonHolt",param=0),
"'param' must be in")
expect_error(srStarts(recruits~stock,data=CodNorwegian,
type="BevertonHolt",param=5),
"'param' must be in")
expect_error(srStarts(recruits~stock,data=CodNorwegian,
type="BevertonHolt",param=c(1,3)),
"Only one 'param'")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",param=0),
"'param' must be in")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",param=4),
"'param' must be in")
expect_error(srStarts(recruits~stock,data=CodNorwegian,
type="Ricker",param=c(1,3)),
"Only one 'param'")
## wrong variables
expect_error(srStarts(~stock,data=CodNorwegian),"with both LHS and RHS")
expect_error(srStarts(stock~1,data=CodNorwegian),"with both LHS and RHS")
expect_error(srStarts(~stock+recruits,data=CodNorwegian),
"only one LHS variable")
expect_error(srStarts(stock+recruits~1,data=CodNorwegian),
"with both LHS and RHS")
expect_error(srStarts(stock~fyear,data=CodNorwegian),
"RHS variable must be numeric")
expect_error(srStarts(fyear~recruits,data=CodNorwegian),
"LHS variable must be numeric")
expect_error(srStarts(stock~recruits+fyear,data=CodNorwegian),
"only one LHS and only one RHS")
## Issues with fixed=
expect_error(srStarts(recruits~stock,data=CodNorwegian,fixed=list(c=1)),
"not named")
expect_error(srStarts(recruits~stock,data=CodNorwegian,
fixed=list(a=3,c=1)),
"not named")
expect_error(srStarts(recruits~stock,data=CodNorwegian,
fixed=list(a=3,b=0.1,c=1)),
"not named")
expect_error(srStarts(recruits~stock,data=CodNorwegian,param=2,
fixed=list(b=1)),
"is not a parameter")
expect_error(srStarts(recruits~stock,data=CodNorwegian,param=4,
fixed=list(b=1)),
"is not a parameter")
expect_error(srStarts(recruits~stock,data=CodNorwegian,param=1,
fixed=list(Rp=1)),
"is not a parameter")
expect_error(srStarts(recruits~stock,data=CodNorwegian,param=3,
fixed=list(Rp=1)),
"is not a parameter")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,param=1,
fixed=list(a=-1)),
"not positive")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,param=1,
fixed=list(b=-1)),
"not positive")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,param=2,
fixed=list(Rp=-1)),
"not positive")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",
fixed=list(c=1)),
"not named")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",
fixed=list(a=3,c=1)),
"not named")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",
fixed=list(a=3,b=0.1,c=1)),
"not named")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",param=3,
fixed=list(b=1)),
"is not a parameter")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",param=1,
fixed=list(Rp=1)),
"is not a parameter")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",param=2,
fixed=list(Rp=1)),
"is not a parameter")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",
fixed=list(a=-1)),
"not positive")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",
fixed=list(b=-1)),
"not positive")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="Ricker",param=3,
fixed=list(Rp=-1)),
"not positive")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Shepherd",
fixed=list(d=1)),
"not named")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="Shepherd",
fixed=list(a=3,d=1)),
"not named")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="Shepherd",
fixed=list(a=-1)),
"not positive")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="Shepherd",
fixed=list(b=-1)),
"not positive")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="Shepherd",
fixed=list(c=-1)),
"not positive")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="SailaLorda",
fixed=list(d=1)),
"not named")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="SailaLorda",
fixed=list(a=3,d=1)),
"not named")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="SailaLorda",
fixed=list(a=-1)),
"not positive")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="SailaLorda",
fixed=list(b=-1)),
"not positive")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="SailaLorda",
fixed=list(c=-1)),
"not positive")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="independence",
fixed=list(d=1)),
"not named")
expect_error(srStarts(recruits~stock,data=CodNorwegian,type="independence",
fixed=list(a=3,d=1)),
"not named")
expect_warning(srStarts(recruits~stock,data=CodNorwegian,type="independence",
fixed=list(a=-1)),
"not positive")
})
## Test Output Types ----
test_that("srFuns() output",{
expect_equal(mode(srFunShow(type="BevertonHolt",param=1)),"expression")
expect_equal(mode(srFunShow(type="BevertonHolt",param=2)),"expression")
expect_equal(mode(srFunShow(type="BevertonHolt",param=3)),"expression")
expect_equal(mode(srFunShow(type="BevertonHolt",param=4)),"expression")
expect_equal(mode(srFunShow(type="Ricker",param=1)),"expression")
expect_equal(mode(srFunShow(type="Ricker",param=2)),"expression")
expect_equal(mode(srFunShow(type="Ricker",param=3)),"expression")
expect_equal(mode(srFunShow(type="Shepherd")),"expression")
expect_equal(mode(srFunShow(type="SailaLorda")),"expression")
})
test_that("srFuns() output",{
## Do all choices return a function
expect_is(srFuns("BevertonHolt",param=1),"function")
expect_is(srFuns("BevertonHolt",param=2),"function")
expect_is(srFuns("BevertonHolt",param=3),"function")
expect_is(srFuns("BevertonHolt",param=4),"function")
expect_is(srFuns("Ricker",param=1),"function")
expect_is(srFuns("Ricker",param=2),"function")
expect_is(srFuns("Ricker",param=3),"function")
expect_is(srFuns("Shepherd"),"function")
expect_is(srFuns("Saila"),"function")
expect_is(srFuns("independence"),"function")
expect_is(srFuns("BevertonHolt",param=1,simple=TRUE),"function")
expect_is(srFuns("BevertonHolt",param=2,simple=TRUE),"function")
expect_is(srFuns("BevertonHolt",param=3,simple=TRUE),"function")
expect_is(srFuns("BevertonHolt",param=4,simple=TRUE),"function")
expect_is(srFuns("Ricker",param=1,simple=TRUE),"function")
expect_is(srFuns("Ricker",param=2,simple=TRUE),"function")
expect_is(srFuns("Ricker",param=3,simple=TRUE),"function")
expect_is(srFuns("Shepherd",simple=TRUE),"function")
expect_is(srFuns("Saila",simple=TRUE),"function")
expect_is(srFuns("independence",simple=TRUE),"function")
## Do all choices return a message with the name of the function in it
expect_message(srFuns("BevertonHolt",param=1,msg=TRUE),
"first parameterization of the 'Beverton-Holt'")
expect_message(srFuns("BevertonHolt",param=2,msg=TRUE),
"second parameterization of the 'Beverton-Holt'")
expect_message(srFuns("BevertonHolt",param=3,msg=TRUE),
"third parameterization of the 'Beverton-Holt'")
expect_message(srFuns("BevertonHolt",param=4,msg=TRUE),
"fourth parameterization of the 'Beverton-Holt'")
expect_message(srFuns("Ricker",param=1,msg=TRUE),
"first parameterization of the 'Ricker'")
expect_message(srFuns("Ricker",param=2,msg=TRUE),
"second parameterization of the 'Ricker'")
expect_message(srFuns("Ricker",param=3,msg=TRUE),
"third parameterization of the 'Ricker'")
expect_message(srFuns("Shepherd",msg=TRUE),"Shepherd")
expect_message(srFuns("Saila",msg=TRUE),"Saila")
expect_message(srFuns("independence",msg=TRUE),"density-independent")
})
test_that("srStarts() output",{
CodNorwegian$fyear <- factor(CodNorwegian$year)
## Returns a list with proper names
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="BevertonHolt",param=1)
expect_is(tmp,"list")
expect_equal(names(tmp),c("a","b"))
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="BevertonHolt",param=2)
expect_is(tmp,"list")
expect_equal(names(tmp),c("a","Rp"))
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="BevertonHolt",param=3)
expect_is(tmp,"list")
expect_equal(names(tmp),c("a","b"))
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="BevertonHolt",param=4)
expect_is(tmp,"list")
expect_equal(names(tmp),c("a","Rp"))
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="Ricker",param=1)
expect_is(tmp,"list")
expect_equal(names(tmp),c("a","b"))
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="Ricker",param=2)
expect_is(tmp,"list")
expect_equal(names(tmp),c("a","b"))
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="Ricker",param=3)
expect_is(tmp,"list")
expect_equal(names(tmp),c("a","Rp"))
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="Shepherd")
expect_is(tmp,"list")
expect_equal(names(tmp),c("a","b","c"))
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="SailaLorda")
expect_is(tmp,"list")
expect_equal(names(tmp),c("a","b","c"))
tmp <- srStarts(recruits~stock,data=CodNorwegian,type="independence")
expect_is(tmp,"list")
expect_equal(names(tmp),"a")
})
## Validate Results ----
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.