R语言计算mae,mape,欧氏距离，rmse

随手记录

eu_dist <- function(x, y) sqrt(sum((x - y)^2))

rmse <- function(x,y) sqrt(mean((x - y)^2))

mape <- function(x,y) mean(abs((x-y)/x)) * 100

mae <- function(x,y) mean(abs(y - x))