simScript2.R