add exploreAOA function (#3)

* update plot and print * add exploreAOA to package * add message for trainLPD calculation
fab-scm · Oct 4, 2023 · 5a08a9e · 5a08a9e
1 parent 663ffdd
commit 5a08a9e
Show file tree

Hide file tree

Showing 2 changed files with 518 additions and 0 deletions.
diff --git a/R/aoa.R b/R/aoa.R
@@ -215,6 +215,9 @@ aoa <- function(newdata,
   # if not provided, compute train DI
   if(!inherits(trainDI, "trainDI")) {
     message("No trainDI provided. Computing DI of training data...")
+    if(calc_LPD == TRUE) {
+      message("Computing LPD of training data...")
+    }
     trainDI <- trainDI(model, train, variables, weight, CVtest, CVtrain, method, useWeight, LPD, maxLPD)
   }
 
@@ -317,6 +320,8 @@ aoa <- function(newdata,
   }
 
   if (calc_LPD == TRUE) {
+    message("Computing LPD of newdata...")
+
     knndist <- matrix(NA, nrow(newdata), maxLPD)
     knndist[okrows,] <- .knndistfun(newdataCC, train_scaled, method, S_inv, maxLPD = maxLPD)