受同学所托写了个计算平均相对误差的函数,下面贴出来,不解释了用到自取。可以结和百分数的函数一块用输出百分数。
# 输入参数: real:真实值、 fore: 预测值
MRE <- function(real = 1:10, fore = 2:11){
mre <- mean(abs(real - fore)/real)
return(mre)
}
MRE()
受同学所托写了个计算平均相对误差的函数,下面贴出来,不解释了用到自取。可以结和百分数的函数一块用输出百分数。
# 输入参数: real:真实值、 fore: 预测值
MRE <- function(real = 1:10, fore = 2:11){
mre <- mean(abs(real - fore)/real)
return(mre)
}
MRE()