if (FALSE) {
##### this example creates an ascii version of the
##### seismic data for exchange purposes
data("GH")
tempd = tempdir()
sel <- which(GH$COMPS == "V" & GH$STNS=="CE1" )
ASCII.SEISN(GH, sel = 1, HEAD = TRUE, destdir=tempd)
}
Run the code above in your browser using DataLab