refresh of scripts.R codes