Add functions: initials and calcBmis