Create script.R