ordinal_data <- .DefaultDataOrdinal()
ordinal_model <- .DefaultLogisticLogNormalOrdinal()
opts <- .DefaultMcmcOptions()
samples <- mcmc(ordinal_data, ordinal_model, opts)
probFunction(
ordinal_model,
grade = 2L,
alpha2 = samples@data$alpha1,
beta = samples@data$beta
)(50)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.