added library(methods) to WriteScenario() to avoid `Error in .Object$initialize : could not find function "loadMethod" again methods load prob`