Update script1.R

testing 20140723