some initial r code

answering questions for peer review assignment 1