data(ConwyData)
network <- LandUseChange
q <- queryNet(network, 'FinalLULC', evidence)
head(q)
## Fix a given node on a state (i.e. fixed evidence) by providing an additional argument
q <- queryNet(network, 'FinalLULC', evidence, Stakeholders = 'farmers')
head(q)
## Use parallel processing
library(doParallel)
q <- queryNetParallel(network, 'FinalLULC', evidence, inparallel=2)
head(q)
Run the code above in your browser using DataLab