Finished R programming