Check in R programming assignment 2.