adding Course Project initial draft .R