请问在R里如何算出RMSE,MAPE之类的结果呢

xionglidi 发表于 2018-5-16 10:20
请问这个函数是r自带的吗？我写进去提示我说没有这个函数

安装一个 forecast 包

谢谢～～

keithchan13 发表于 2018-5-16 12:36
这个是DMwR包里面的。这段代码是作者写的一本书上的原文

谢谢～～～

雪凤夏洛 发表于 2018-5-17 18:34
安装一个 forecast 包

谢谢～～

复制下面的code，执行就可以得到RMSE
library(Metrics)
# Split mtcars dataframe into train and test set
train <- mtcars[1:24,]
test <- mtcars[25:32,]

# Create multivariate model for mpg depending on weight and hp
mod1 <- lm(mpg ~ wt + hp, data = train)

# See predictions on test set
predictions <- predict(mod1, test)

#Calculate RMSE and MAPE
rmse(test$mpg, predictions)
mape(test$mpg, predictions)

rmse(test$mpg, predictions)
mape(test$mpg, predictions)

RSME的计算很简单，可以自编函数或者公式，只要知道计算公式，其他的统计量也可以计算。比如RSME的计算：
MSE=sum(x1-x2)^2/length(x1)
RMSE=sqrt(MSE)

pred=forecast(model,h=20)
accuracy(pred)[2]
即可提取RMSE