R/mlr.measures.mse.R

#' @include mlr.measures.R
#' @include Measure.R
mlr.measures$add(Measure$new(
  id = "mse",
  description = "Mean squared error",
  task.types = c("regr"),
  fun = function(pred) {
    mean((pred$truth[[1L]] - pred$predicted)^2)
  }
))
mlr-org/mlrng documentation built on May 4, 2019, 4:22 p.m.