data(GH, package='RSEIS')
g1 = GH$pickfile
#### saves pick files to disk
PFoutput(g1, stas = NULL, sol = NULL, format = 1, destdir=tempdir() )
PFoutput(g1, stas = NULL, sol = NULL, format = 2, destdir=tempdir() )
PFoutput(g1, stas = NULL, sol = NULL, format = 3, destdir=tempdir() )
PFoutput(g1, stas = NULL, sol = NULL, format = 0, destdir=tempdir() )
Run the code above in your browser using DataLab