if (FALSE) {
runExample("simple",thisR=TRUE)
## Parameter names for this model:
## beta beta logsdu logsd0
## Profile wrt. sigma0:
prof <- tmbprofile(obj,"logsd0")
plot(prof)
confint(prof)
## Profile the difference between the beta parameters (name is optional):
prof2 <- tmbprofile(obj,name="beta1 - beta2",lincomb = c(1,-1,0,0))
plot(prof2)
confint(prof2)
}
Run the code above in your browser using DataLab