From 14d7b05798a7a2b851171e3116191dda8f6c29ab Mon Sep 17 00:00:00 2001 From: Guillermo Durand Date: Fri, 3 May 2024 16:29:33 +0200 Subject: [PATCH] debugging an accidental copy/paste and a forgotten call to a now removed function --- R/tree-functions.R | 18 ------------------ .../envelopes-hybrid/script_test_curve_fast.R | 1 - .../envelopes-hybrid/script_test_pruning.R | 1 - 3 files changed, 20 deletions(-) diff --git a/R/tree-functions.R b/R/tree-functions.R index 214cfe4..9b9ebb9 100644 --- a/R/tree-functions.R +++ b/R/tree-functions.R @@ -763,21 +763,3 @@ forest.completion <- function(C, ZL, leaf_list) { return(list(C = C, ZL = ZL)) } - -# TODO BEFORE MERGE: delete this -V.star <- function(S, C, ZL, leaf_list) { - all_leaves <- tree.expand(C, ZL, leaf_list) - return(V.star.all.leaves(S, - all_leaves$C, - all_leaves$ZL, - leaf_list)) -} - -# TODO BEFORE MERGE: delete this -V.star.no.id <- function(S, C, ZL, leaf_list) { - all_leaves <- tree.expand(C, ZL, leaf_list) - return(V.star.all.leaves.no.id(S, - all_leaves$C, - all_leaves$ZL, - leaf_list)) -} diff --git a/inst/DBNR/envelopes-hybrid/script_test_curve_fast.R b/inst/DBNR/envelopes-hybrid/script_test_curve_fast.R index b02043a..d632d3a 100644 --- a/inst/DBNR/envelopes-hybrid/script_test_curve_fast.R +++ b/inst/DBNR/envelopes-hybrid/script_test_curve_fast.R @@ -30,7 +30,6 @@ print(curve.V.star.forest.fast(perm, C, ZL, leaf_list, pruning = TRUE)) super.pruned <- pruning(C, ZL, leaf_list, prune.leafs = TRUE) pruned <- pruning(C, ZL, leaf_list, prune.leafs = FALSE) -K.1 <- compute.K.1(pruned$C, pruned$ZL, leaf_list) print("Comparing execution times:") mbench <- microbenchmark(naive.not.pruned = curve.V.star.forest.naive(perm, C, ZL, leaf_list), diff --git a/inst/DBNR/envelopes-hybrid/script_test_pruning.R b/inst/DBNR/envelopes-hybrid/script_test_pruning.R index acdf87a..9db9376 100644 --- a/inst/DBNR/envelopes-hybrid/script_test_pruning.R +++ b/inst/DBNR/envelopes-hybrid/script_test_pruning.R @@ -1,4 +1,3 @@ -# TODO BEFORE MERGE: rename zetas.tree library(sanssouci) library(microbenchmark)