Update script.r