# NOT RUN {
# }
# NOT RUN {
### Generate some random data
dat <- matrix(rbinom(200, size = 3, prob = 0.4), nrow = 20)
# for observational data
dat <- sparsebnUtils::sparsebnData(dat, type = "discrete")
# generate the maximum lambda
max_lambda(indata = dat)
# }
Run the code above in your browser using DataLab