REG_3

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

# load library forvision 
library(forvision)

# plot coverage diagram
plotCoverage(regpi_af, pi = 99)

# plot coverage diagram for pi = 95 
plotCoverage(regpi_af, pi = 95)

# plot coverage diagram for pi =90
plotCoverage(regpi_af, pi = 90)

# plot coverage diagram for pi =80
plotCoverage(regpi_af, pi = 80)

LS0tDQp0aXRsZTogIlJFR18zIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3J9DQojIGxvYWQgcmVnX2FmIGRhdGENCnJlZ3BpX2FmIDwtIHJlYWQuY3N2KCJEOi8wMV9Qcm9qZWN0cy9SLVByZWRpY3RpdmVNaWFudGVuYW5jZS9yZWdwaV9hZi5jc3YiKQ0KDQojIGxvYWQgbGlicmFyeSBmb3J2aXNpb24gDQpsaWJyYXJ5KGZvcnZpc2lvbikNCmBgYA0KDQoNCmBgYHtyLCBmaWcud2lkdGg9MTAsIGZpZy5oZWlnaHQ9N30NCiMgcGxvdCBjb3ZlcmFnZSBkaWFncmFtIGZvciBwaSA9OTkNCnBsb3RDb3ZlcmFnZShyZWdwaV9hZiwgcGkgPSA5OSkNCmBgYA0KDQpgYGB7ciwgZmlnLndpZHRoPTEwLCBmaWcuaGVpZ2h0PTd9DQojIHBsb3QgY292ZXJhZ2UgZGlhZ3JhbSBmb3IgcGkgPSA5NSANCnBsb3RDb3ZlcmFnZShyZWdwaV9hZiwgcGkgPSA5NSkNCmBgYA0KYGBge3IsIGZpZy53aWR0aD0xMCwgZmlnLmhlaWdodD03fQ0KIyBwbG90IGNvdmVyYWdlIGRpYWdyYW0gZm9yIHBpID05MA0KcGxvdENvdmVyYWdlKHJlZ3BpX2FmLCBwaSA9IDkwKQ0KYGBgDQoNCmBgYHtyLCBmaWcud2lkdGg9MTAsIGZpZy5oZWlnaHQ9N30NCiMgcGxvdCBjb3ZlcmFnZSBkaWFncmFtIGZvciBwaSA9ODANCnBsb3RDb3ZlcmFnZShyZWdwaV9hZiwgcGkgPSA4MCkNCmBgYA==