Nothing
#' Get the metrics computed by the prediction model based on the task.
#' @noRd
get_available_metrics <- function(classification) {
if (classification) {
return(c(
"Accuracy", "Kappa", "F1", "Sensitivity", "Specificity",
"Pos_Pred_Value", "Neg_Pred_Value", "Precision",
"Recall", "Detection_Rate", "Balanced_Accuracy"
))
} else {
return(c("RMSE", "MAE"))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.