adding scripts R