my R programming Assignment 3