Score calculation (per node) by bnlearn

rm(list = ls())
library(bnlearn)
meeting_score <- score(resGS, data.frame(dades), type="bde", by.node = T, debug = T)
meeting_score
resGS is the network
dades is the data
meeting_score will provide score of each node
library(bnlearn)
meeting_score <- score(resGS, data.frame(dades), type="bde", by.node = T, debug = T)
meeting_score
resGS is the network
dades is the data
meeting_score will provide score of each node