R code related to bayesian network modeling of riparian recruitment in the Upper Gila Basin