R语言 计算RMSE, MAE, SD, Bias，严格保留小数点后位数

#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)