file_path <- system.file("extdata", "good_training.csv", package = "ezECM")
training_data <- import_pvals(file = file_path, header = TRUE, sep = ",", training = TRUE)
newdata <- training_data[1:10,]
cat_truth <- newdata$event
newdata$event <- NULL
training_data <- training_data[-(1:10),]
pval <- cECM(training_data, transform = TRUE, newdata = newdata)
binary_decision <- cECM_decision(pval = pval, alphatilde = 0.05,
vic = "explosion", cat_truth = cat_truth)
decision <- cECM_decision(pval = pval, alphatilde = 0.05)
Run the code above in your browser using DataLab