interVal

noriakis · Oct 17, 2024 · f001a47 · f001a47
1 parent 39ad556
commit f001a47
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/interVal.R b/R/interVal.R
@@ -46,6 +46,7 @@ interVal <- function(data, algos=c("hc","mmhc"), algorithm.args=NULL,
         print(A0.bn)
     }
 	subsample.res <- do.call(cbind, lapply(seq_len(r), function(cr) {
+        if (verbose) {cat("Subsample:", cr, "\n")}
         replicates <- sample(seq_len(nrow(data)), ss)
         tmp <- data[replicates, ]
         inf.nets <- lapply(seq_along(algos), function(al) {