updated .r script file, forgot to save it before initial commit