get_losses <- function(loss){
out <- switch(loss,
"MSE" = mean_square_error,
stop("loss function not implemented"))
}
mean_square_error <- function(y, y_pred){
return(rowMeans((y_pred - y)^2))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.