added 2 to script.R