add documentation and parameter checks to the build network function

2026-05-20 17:00:33 +02:00
parent 106c37a1b6
commit dcb1468381
1 changed files with 0 additions and 7 deletions
--- a/R/build_network.R
+++ b/R/build_network.R
@@ -135,10 +135,3 @@ compute_adj_matrix <- function(
  adj_mat
 }

-set.seed(1)
-X <- matrix(c(-1, -0.5, 0, 0.5, 1), nrow = 5, ncol=1)
-a <- 2.0
-v <- c(0, 0.2, 0.4, 0.6, 0.8)
-adj <- compute_adj_matrix(X, v, a, phi = function(x,y) {x * y}, 0.5, Fv = punif)
-adj
-