Nothing
## ----setup, message=FALSE, echo=FALSE------------------------------------
library(knitr)
opts_knit$set(root.dir=normalizePath('../'))
## ---- message=FALSE------------------------------------------------------
library("structree")
data(CTB, package="structree")
## ------------------------------------------------------------------------
dim(CTB)
str(CTB)
nlevels(CTB$school)
table(CTB$school)
## ----tidy=TRUE,tidy.opts=list(width.cutoff=60)---------------------------
mod_CTB <- structree(score~tr(1|school)+gender, data=CTB, family=gaussian,
stop_criterion="pvalue", splits_max=34, alpha=0.05, trace=FALSE)
# print
mod_CTB
## ------------------------------------------------------------------------
mod_CTB$opts
## ----fig.height=4,fig.width=4,fig.align='center'-------------------------
plot(mod_CTB, paths=TRUE)
## ----fig.height=4,fig.width=5,fig.align='center'-------------------------
plot(mod_CTB, result=TRUE, cex.txt=0.7, cex.main=1.2)
## ------------------------------------------------------------------------
coef(mod_CTB)
## ---- message=FALSE------------------------------------------------------
library("structree")
data(guPrenat, package="structree")
## ------------------------------------------------------------------------
dim(guPrenat)
## ------------------------------------------------------------------------
str(guPrenat)
nlevels(guPrenat$cluster)
table(guPrenat$cluster)
## ----tidy=TRUE,tidy.opts=list(width.cutoff=80)---------------------------
mod_gua <- structree(prenat~tr(1|cluster)+indig+momEd+husEd+husEmpl+TV+motherAge+toilet,data=guPrenat,family=binomial(link="logit"),stop_criterion="pvalue",splits_max=10,alpha=0.05,trace=FALSE)
# print
mod_gua
## ------------------------------------------------------------------------
mod_gua$opts
## ----fig.height=4,fig.width=6,fig.align='center'-------------------------
plot(mod_gua, result=TRUE, cex.txt=0.7, cex.main=1.2)
## ------------------------------------------------------------------------
coef(mod_gua)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.