Nothing
# internal function to get metrics from summary. These are already
# available in the summary object.
get_metric = function(model_sum, metric) {
output = unlist(lapply(model_sum, function(x) x[[metric]]))
return(output)
}
# check to make sure every model is, say, glm or lm etc.
# some models have multiple attributes if passed straight in as a model,
# so use summary = FALSE in that case
model_type_check = function(model_sum, model_type, summary = TRUE) {
if (summary == TRUE) {
(all(unlist(lapply(model_sum, function(x) class(x) == model_type))))
} else {
(all(unlist(lapply(model_sum, function(x) class(x)[1] == model_type))))
}
}
# internal function to calculate metrics from summary.
# these are not freely available from the summary so have to calculate them
# instead of getting them directly.
calc_metric = function(model_sum, calc) {
if (calc == "MSE") {
output = unlist(lapply(
model_sum,
function(x) mean(x[["residuals"]]^2)
))
} else if (calc == "RMSE") {
output = unlist(lapply(
model_sum,
function(x) sqrt(mean(x[["residuals"]]^2))
))
} else if (calc == "MAE") {
output = unlist(lapply(
model_sum,
function(x) mean(abs(x[["residuals"]]))
))
} else {
stop("Metric type not supported!")
}
return(output)
}
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.