R Programming course asignment 1