Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
comment = "#>"
)
## ----package-load-------------------------------------------------------------
# Load the rater package.
library(rater)
# Access the 'anesthesia' data set.
data("anesthesia")
## ----one-row------------------------------------------------------------------
anesthesia[20, ]
## ---- inference, warnings = FALSE, message = FALSE----------------------------
fit <- rater(anesthesia, "dawid_skene", chains = 1, verbose = FALSE)
## ----optim-fit----------------------------------------------------------------
optim_fit <- rater(anesthesia, "dawid_skene", method = "optim")
## ----plot-pi, fig.width = 6, fig.height = 4-----------------------------------
plot(fit, pars = "pi")
## ----plot-theta, fig.width = 6, fig.height = 4--------------------------------
plot(fit, pars = "theta")
## ----plot-z, fig.width = 6, fig.height = 8------------------------------------
plot(fit, pars = "latent_class")
## ----point-estimates----------------------------------------------------------
# Extract all parameters.
all_parameters <- point_estimate(fit)
# Extract only the 'pi' parameter.
point_estimate(fit, pars = "pi")
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.