# Estimate average log-likelihood
arf <- adversarial_rf(iris)
psi <- forde(arf, iris)
ll <- lik(psi, iris, arf = arf, log = TRUE)
mean(ll)
# Identical but slower
ll <- lik(psi, iris, log = TRUE)
mean(ll)
# Partial evidence query
lik(psi, query = iris[1, 1:3])
# Condition on Species = "setosa"
evi <- data.frame(Species = "setosa")
lik(psi, query = iris[1, 1:3], evidence = evi)
# Condition on Species = "setosa" and Petal.Width > 0.3
evi <- data.frame(variable = c("Species", "Petal.Width"),
relation = c("==", ">"),
value = c("setosa", 0.3))
lik(psi, query = iris[1, 1:3], evidence = evi)
Run the code above in your browser using DataLab