Update scripts.R