# load reg_af data
regpi_af <- read.csv("D:/01_Projects/R-PredictiveMiantenance/regpi_af.csv")

# load library forvision 
library(forvision)
acc <-  calculateRMSE(reg_af)
acc$accuracy
acc$plot

acc$rank
LS0tDQp0aXRsZTogIlBLR18zIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3J9DQojIGxvYWQgcmVnX2FmIGRhdGENCnJlZ3BpX2FmIDwtIHJlYWQuY3N2KCJEOi8wMV9Qcm9qZWN0cy9SLVByZWRpY3RpdmVNaWFudGVuYW5jZS9yZWdwaV9hZi5jc3YiKQ0KDQojIGxvYWQgbGlicmFyeSBmb3J2aXNpb24gDQpsaWJyYXJ5KGZvcnZpc2lvbikNCmBgYA0KDQpgYGB7cn0NCmFjYyA8LSAgY2FsY3VsYXRlUk1TRShyZWdfYWYpDQpgYGANCg0KDQpgYGB7cn0NCmFjYyRhY2N1cmFjeQ0KYGBgDQoNCmBgYHtyfQ0KYWNjJHBsb3QNCmBgYA0KDQpgYGB7cn0NCmFjYyRyYW5rDQpgYGANCg0K