numLlvs <- 4
predClasses <- factor(sample(rep(letters[1:numLlvs], 200), 50))
obsClasses <- factor(sample(rep(letters[1:numLlvs], 200), 50))
confusionMatrix(predClasses, obsClasses)
numLlvs <- 2
predClasses <- factor(sample(rep(letters[1:numLlvs], 200), 50))
obsClasses <- factor(sample(rep(letters[1:numLlvs], 200), 50))
confusionMatrix(predClasses, obsClasses)
Run the code above in your browser using DataLab