Update srcipt.R