Homework for R Course