# Estimate log-likelihoods
ll <- darf(iris)
# Partial evidence query
ll <- darf(iris, query = iris[1, 1:3])
# Condition on Species = "setosa"
ll <- darf(iris, query = iris[1, 1:3], evidence = data.frame(Species = "setosa"))
Run the code above in your browser using DataLab