Update script.R