calculateAVE function

Average variance extracted (AVE)