added corr.R template for assignment 3