R programming, first assignment