Update profile.by.group.R