added first r script