# NOT RUN {
# load sample models:
data(rotif.mods)
# choose a particular model to play with:
mod <- rotif.mods$models[[1]]
confusionLabel(model = mod, thresh = 0.5)
# you can also use confusionLabel with vectors of observed and predicted values
# instead of with a model object:
presabs <- mod$y
prediction <- mod$fitted.values
confusionLabel(obs = presabs, pred = prediction, thresh = 0.5)
# }
Run the code above in your browser using DataLab