paramList = c("Cd", "Cu", "Fe", "Mn", "Ni", "Pb", "Zn")
chemSigSelect(data = h.tristate, paramList = paramList)$sig[1:6,]
chemSigSelect(data = h.tristate, paramList = paramList, testType = "p")$sig[1:6,]
Run the code above in your browser using DataLab