library(scape)
x.cod <- importCol("~/r/library/scape/example/cod.res", Dev=TRUE, Survey=TRUE, CAc=TRUE, CAs=TRUE)
x.ling <- importCol("~/r/library/scape/example/ling.res", Dev=TRUE, CPUE=TRUE, Survey=TRUE, CAs=TRUE, CLc=TRUE)
x.oreo <- importCol("~/r/library/scape/example/oreo.res", CPUE=TRUE, Survey=TRUE, CLc=TRUE, CLs=TRUE, LA=TRUE)
x.saithe <- importADCAM("~/r/library/scape/example/saithe")
x.sbw <- importCol("~/r/library/scape/example/sbw.res", Dev=TRUE, Survey=TRUE, CAc=TRUE)
xmcmc <- importMCMC("~/r/library/scape/example/mcmc", pretty.labels=TRUE, l.choose=c("CAc","CAs","Survey","Prior","Total"), p.choose=c("R0","Rinit","uinit","cSleft","cSfull","sSleft","sSfull","logq"))
xproj <- importProj("~/r/library/scape/example/mcmc")
dump("x.cod", "~/git/arni-magnusson/scape/data/x.cod.R")
dump("x.ling", "~/git/arni-magnusson/scape/data/x.ling.R")
dump("x.oreo", "~/git/arni-magnusson/scape/data/x.oreo.R")
dump("x.saithe", "~/git/arni-magnusson/scape/data/x.saithe.R")
dump("x.sbw", "~/git/arni-magnusson/scape/data/x.sbw.R")
dump("xmcmc", "~/git/arni-magnusson/scape/data/xmcmc.R")
dump("xproj", "~/git/arni-magnusson/scape/data/xproj.R")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.