#1,计算MAE MAE<-sprintf("%.2f",mean(abs(actual-predicted))) #2,计算RMSE library(Metrics) RMSE<-sprintf("%.2f",rmse(actual,predicted)) #3,计算error_abs_SD SD<-sprintf("%.2f",sd(abs(actual-predicted))) #4,计算bias,科学计数法 library(scales) Bias<-scientific( mean(actual-predicted), digits = 3)