数据误差计算（by R）

此处仅计算R2、RMSE、MAE、RSE、MSE、MAPE、MSPE，需额外评估指标的话可自行添加

#导入数据
data<- read.table('E:\\data\\loss.csv',sep = ",",header = T)

#data第2列是预测值，第3列是实际值，修改表头
colnames(data1)[2]<-"pre"
colnames(data1)[3]<-"y_test"

#计算
R2<-1-sum((data$y_test-data$pre)^2)/sum((data$y_test-mean(data$y_test))^2)
RMSE<-sqrt(mean((data$y_test-data$pre)^2))
MAE<-mean(abs(data$y_test-data$pre))
RSE<-sqrt(sum((data$y_test-data$pre)^2)) / sqrt(sum((data$y_test-mean(data$y_test))^2))
MSE<-mean((data$y_test-data$pre)^2)
MAPE<-mean(abs((data$y_test-data$pre) / data$y_test))
MSPE<-mean(((data$y_test-data$pre) / data$y_test)^2)

#打印
cat("R2:",R2,",RMSE:",RMSE,",MAE:",MAE,",RSE:",RSE,",MSE:",MSE,",MAPE:",MAPE,",MSPE:",MSPE)