select and amalgamate the components of interest:
HM <- amalgamate(dat,ztr=c("zr","tm","rt"),ep="ep",
                     gt="gt",amp="amp",cpx="cpx")