R Programming, first homework