second assignment in R programming