R script is posted in github
https://github.com/smlgfiuedu/BNLEARN-G ... ta-anlysisNetwork scores generated :
> score(Bn4, Intervention, type = "bde" )
[1] -7082.487
> score(Bn4, Intervention, type = "loglik")
[1] -2544.214
> score(Bn5, Intervention, type = "bde" )
[1] -7095.455
> score(Bn5, Intervention, type = "loglik")
[1] -2592.736
> score(Bn6, Intervention, type = "bde" )
[1] -7101.518
> score(Bn6, Intervention, type = "loglik")
[1] -2555.251
> score(Bn7, Intervention, type = "bde" )
[1] -7095.455
> score(Bn7, Intervention, type = "loglik")
[1] -2592.736
> score(Bn8, Intervention, type = "bde" )
[1] -7095.455
> score(Bn8, Intervention, type = "loglik")
[1] -2592.736
>