->
more work on fit.corr.R