# Set seed for this example
set.seed(11001101)
# Generate data for 4 binary methods
my_sim <- generate_multimethod_data(
"binary",
n_obs = 75,
n_method = 4,
se = c(0.87, 0.92, 0.79, 0.95),
sp = c(0.85, 0.93, 0.94, 0.80),
method_names = c("alpha", "beta", "gamma", "delta"))
# View the data
my_sim$generated_data
# View the parameters used to generate the data
my_sim$params
# Estimate ML accuracy values by EM algorithm
my_result <- estimate_ML(
"binary",
data = my_sim$generated_data,
save_progress = FALSE # this reduces the data stored in the resulting object
)
# View results of ML estimate
my_result@results
Run the code above in your browser using DataLab