## Dataset
data("ecoli", package = "MoTBFs")
data <- ecoli[,-c(1,9)]
## Get directed acyclic graph
dag <- LearningHC(data)
## Learn bayesian network
bn <- motbf.fit(dag, data = data, numIntervals = 4, POTENTIAL_TYPE = "MOP")
## Specify the evidence set and target variable
obs <- data.frame(lip = "0.48", alm1 = 0.55, stringsAsFactors=FALSE)
node <- "alm2"
ve = variableElimination(bn, target = node, evidence = obs)
Run the code above in your browser using DataLab