require(hydrogeo)
l <- list( Ca = c(43,10,73,26,32),
Mg = c(30,50,3,14,12),
Cl = c(24,10,12,30,43),
SO4 = c(24,10,12,30,43),
WaterType = c(2,2,1,2,3),
IDs = c("A","B","C","D","E") )
l$pt.pch <- c(2,1,1,3,4)
lp<-piper(l)Run the code above in your browser using DataLab