s1 = RSEIS::setWPX(name="HI", yr=2011, jd=231, hr=4, mi=3, sec = runif(5))
s2 = RSEIS::setWPX(name="HI", yr=2011, jd=231, hr=5, mi=2, sec = runif(5))
s3 = RSEIS::catWPX(s1,s2)
twpx = data.frame(s3)
L3 = clusterWPX(twpx)
Run the code above in your browser using DataLab