d <- DAG(LS ~ BM, NL ~ BM, DD ~ NL + LS)
d_fitted <- est_DAG(d, rhino, rhino_tree, 'lambda')
coef(d_fitted)
# Confidence intervals require the model to be fitted with bootstrapping.
# \donttest{
d_boot <- est_DAG(d, rhino, rhino_tree, 'lambda', boot = 100)
confint(d_boot)
cbind(coef = coef(d_boot), confint(d_boot))
# }
Run the code above in your browser using DataLab