Update profile.by.group.R

Updated the code by adding a correlation table to the output object