corr.R working and checked