chemVars16 <- c("Fe2O3","Al2O3","TiO2","MgO","CaO","SiO2", "Th","Nb","Zr","Y","Ce","Ga","V","Zn","Ni","Cr")