Create Script.R