Create Script4.R