Corrected corr.R for passing auto test