data(learning.test)
res = set.arc(gs(learning.test), "A", "B")
score(res, learning.test, type = "dir")
# [1] -25005.24
# let's see score equivalence in action!
res = set.arc(gs(learning.test), "B", "A")
score(res, learning.test, type = "dir")
# [1] -25005.24
# equivalent to logLik(res, learning.test)
score(res, learning.test, type = "loglik")
# [1] -129.9684
# equivalent to AIC(res, learning.test)
score(res, learning.test, type = "aic")
# [1] -170.9684Run the code above in your browser using DataLab