Update scripts.R

test