Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.width=8,
fig.height=6,
#fig.path='figs-tournament/',
fig.align='center',
prompt=TRUE
)
## ----message=FALSE------------------------------------------------------------
library(bdrc)
data(krokfors)
krokfors
## ---- cache=TRUE--------------------------------------------------------------
set.seed(1) # set seed for reproducibility
t_obj <- tournament(Q~W,krokfors,parallel=TRUE,num_cores=2) # by default parallel=TRUE and the number of cores is detected on the machine
## ----eval=FALSE---------------------------------------------------------------
# t_obj <- tournament(list(plm0.fit,plm.fit,gplm0.fit,gplm.fit))
## -----------------------------------------------------------------------------
t_obj # or alternatively print(t_obj)
## -----------------------------------------------------------------------------
summary(t_obj)
## ---- fig.width=8, fig.height=6-----------------------------------------------
plot(t_obj) #default plot type is type='tournament_results'
## ---- fig.width=8, fig.height=6-----------------------------------------------
plot(t_obj,type='deviance')
## ---- fig.width=8, fig.height=6-----------------------------------------------
plot(t_obj,type='rating_curve')
## ---- fig.width=8, fig.height=6-----------------------------------------------
plot(t_obj,type='residuals')
## ---- fig.width=8, fig.height=6-----------------------------------------------
plot(t_obj,type='f')
## ---- fig.width=8, fig.height=6-----------------------------------------------
plot(t_obj,type='sigma_eps')
## ---- fig.width=8, fig.height=6-----------------------------------------------
plot(t_obj,type='panel',transformed=TRUE)
## ----eval=FALSE---------------------------------------------------------------
# t_obj_known_c <- tournament(formula=Q~W,data=krokfors,c_param=7.65)
## -----------------------------------------------------------------------------
t_obj_conservative <- tournament(t_obj$contestants,winning_criteria=5)
summary(t_obj_conservative)
## -----------------------------------------------------------------------------
t_obj_DIC <- tournament(t_obj$contestants,method="DIC")
summary(t_obj_DIC)
## -----------------------------------------------------------------------------
t_obj_prob <- tournament(t_obj$contestants,method="Posterior_probability",winning_criteria=0.9)
summary(t_obj_prob)
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.