R语言入门——平均相对误差的计算

受同学所托写了个计算平均相对误差的函数，下面贴出来，不解释了用到自取。可以结和百分数的函数一块用输出百分数。

# 输入参数： real：真实值、 fore： 预测值
MRE <- function(real = 1:10, fore = 2:11){
  mre <- mean(abs(real - fore)/real)
  return(mre)
}
MRE()