Load Script Function In R