受同学所托写了个计算平均相对误差的函数,下面贴出来,不解释了用到自取。可以结和百分数的函数一块用输出百分数。
# 输入参数: 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()
學習筆記,僅供參考 repeat循環 repeat循環可以重複執行相同的代碼,直到滿足停止條件。 語法 repeat { 命令行 if(關係表達式) { break #關係表達式