# No weights
ex <- correct(x = dichodata, key = dichokey, navalue = NA)
discrimination(ex)
# With weights
set.seed(1919)
wt <- sample(x = 1:4, size = nrow(dichodata), replace = TRUE)
discrimination(ex,wt = wt)
Run the code above in your browser using DataLab