First upload of three R files