受同學所託寫了個計算平均相對誤差的函數,下面貼出來,不解釋了用到自取。可以結和百分數的函數一塊用輸出百分數。
# 輸入參數: 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 #關係表達式