graph=rbind(c("P1","P7",""),c("P2","s1",""),c("P3","s2",""),c("P6","S",""),
c("S","s1","a"),c("S","s2","(1-a)"),c("s2","P8",""),c("s1","P7",""),
c("P4","P9",""),c("P5","P9",""),c("P7","P8",""),
c("P8","R",""),c("P9","R",""))
graph.params=generate.graph.params(graph)
graph.equations=graph.params2symbolic.fstats(graph.params)
Run the code above in your browser using DataLab