# NOT RUN {
# }
# NOT RUN {
tdir = tempdir()
s1 <- setWPX(name="HI", yr=2011, jd=231, hr=4, mi=3, sec = runif(5))
hh <- saveWPX(s1, destdir = tdir )
### read in the data
load(hh)
data.frame(twpx)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab