# Model with default prior parameters:
default_m <- dawid_skene()
# Changing alpha:
set_alpha_m <- dawid_skene(alpha = c(2, 2, 2))
# Changing beta, single matrix:
# (See details for how this is interpreted.)
beta_mat <- matrix(1, nrow = 4, ncol = 4)
diag(beta_mat) <- 4
beta_mat_m <- dawid_skene()
# The above is equivalent (when the model is fit - see details) to:
beta_array <- array(NA, dim = c(2, 4, 4))
for (i in 1:2) {
beta_array[i, , ] <- beta_mat
}
beta_array_m <- dawid_skene(beta = beta_array)
# But you can also specify an array where each slice is different.
# (Again, see details for how this is interpreted.)
beta_array[1, , ] <- matrix(1, nrow = 4, ncol = 4)
beta_array_m <- dawid_skene(beta = beta_array)
# Default:
hier_dawid_skene()
# Changing alpha
hier_dawid_skene(alpha = c(2, 2))
# Default:
class_conditional_dawid_skene()
# Not default:
class_conditional_dawid_skene(
alpha = c(2, 2),
beta_1 = c(4, 4),
beta_2 = c(2, 2)
)
Run the code above in your browser using DataLab