# NOT RUN {
rmse(solubility_test, truth = solubility, estimate = prediction)
mae(solubility_test, truth = solubility, estimate = prediction)
rsq(solubility_test, solubility, prediction)
set.seed(2291)
solubility_test$randomized <- sample(solubility_test$prediction)
rsq(solubility_test, solubility, randomized)
rsq_trad(solubility_test, solubility, randomized)
ccc(solubility_test, solubility, prediction)
# }
Run the code above in your browser using DataLab