diff --git a/R/build_network.R b/R/build_network.R index 6e606a0..567e230 100644 --- 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 -