Create traitMedusaSummary.R