I want to show the score for a Bayesian network.
I'm not yet experienced in correcting errors that occur, so I hope that someone here knows how to solve it.
Here is the code I'm running:
library(bnlearn)
library(Rgraphviz)
library(gRain)
library(graph)
library(grid)
library(snow)
data("learning.test")
bn.AB <- gs(learning.test, blacklist = c("B", "A"))
score(bn.AB, learning.test, type = "bde")
The result should say: -24002.36
This is the error that is produced:
Error in (function (classes, fdef, mtable) :
unable to find an inherited method for function ‘score’ for signature ‘"bn"’
It seems to be a problem related to the score function, from the bnlearn package, asking for object of S4 form, but "bn" being S3.
This is the post that pointed in that direction: What does this mean: unable to find an inherited method for function ‘A’ for signature ‘"B"’
I hope someone will assist in solving it.