R/error.R

In yymmhaha/PackPaper1: Package related to my first paper

# mean squared error

# regarding prediction on a testset
MSE <- function(x, y){
  mse <- mean((x - y)^2)
  return(mse)
}


# mean absolute error
MAE <- function(x, y){
  mae <- mean(abs(x-y))
  return(mae)

}