added library(methods) to WriteScenario() to avoid `Error in .Object$ini...

...tialize : could not find function "loadMethod" again methods load prob`