# NOT RUN {
predictions <- matrix(runif(100), ncol = 10)
colnames(predictions) <- paste('label', 1:10, sep='')
# Create a mlresult from a matrix
mlresult <- as.mlresult(predictions)
mlresult <- as.mlresult(predictions, probability = FALSE)
mlresult <- as.mlresult(predictions, probability = FALSE, threshold = 0.6)
# Change the current type of a mlresult
mlresult <- as.mlresult(mlresult, probability = TRUE)
# }
Run the code above in your browser using DataLab