# NOT RUN {
## Example
set.seed(1)
X1 <- rnorm(200)
X2 <- X1 + rnorm(200)
X3 <- 0.5 * X1 + X2 + 0.2 * c(rnorm(100), rnorm(100)+20)
X <- cbind(X1, X2, X3)
A <- as.factor(rep(c(0, 1), each=100))
network <- learn_network(X, A, method="SR", resampling_method="none")
print(network[[1]]$Amat)
print(network[[2]]$Amat)
# }
Run the code above in your browser using DataLab