if (FALSE) {
# load example network
data(examplePBN)
# perform a Markov chain simulation
sim <- markovSimulation(examplePBN)
# print out the probability table
print(getTransitionProbabilities(sim))
}
Run the code above in your browser using DataLab