Error in `loadECGExample()`: could not find function "loadECGExample"

m <- read.csv("../Results/StepVar&Cor.csv", header = FALSE)
expect_equal(sort(values(MWADiscrim)), sort(as.matrix(m)), ignore_attr = TRUE)
expect_error(generateStepDiscrim(testExperiments, f = "haar", maxvars = 10))
expect_error(generateStepDiscrim(testExperiments, "haar", maxvars = 0))
expect_error(generateStepDiscrim(testExperiments, "haar", VStep = 0))
expect_error(testFilters(grps = grps, maxvars = 10))

MWA <- MultiWaveAnalysis(testExperiments, f = "haar")
MWADiscrim <- StepDiscrim(MWA, MedicalClasification, 2)
expect_error(trainModel(grps = MedicalClasification, method = "linear"))
expect_error(trainModel(MWA, MedicalClasification, method = "NotSupported"))
generateStepDiscrim(ECGExample, grps, "haar", maxvars = 3)
aux <- extractSubset(MWA, c(1, 2, 9, 10))
ldaDiscriminant <- trainModel(MWATrain, grps[3:8], "linear")
CM <- testModel(ldaDiscriminant, MWATest, grps[c(1, 2, 9, 10)])
expect_error(testModel(model = ldaDiscriminant, test = MWATest))
expect_error(testModel(model = ldaDiscriminant, grps = grps[c(1, 2, 9, 10)]))
expect_error(testModel(test = MWATest, grps = grps[c(1, 2, 9, 10)]))
MWADiscrim <- StepDiscrim(MWA, MedicalClasification, 1)
resultMWA <- LOOCV(MWADiscrim, MedicalClasification, "linear")
expect_error(LOOCV(grps = MedicalClasification, method = "linear"))
expect_error(LOOCV(MWA, MedicalClasification, method = "NotSupported"))
resultMWA <- KFCV(MWADiscrim, MedicalClasification, "linear", 4)
expect_error(KFCV(grps = MedicalClasification, method = "linear"))