update R Scripts