Course Project for R data