Update script1.R

測試pull功能