data(GH)
theENDIAN =.Platform$endian
apath = tempdir()
J = rseis2segy(GH, sel=1:5, path=apath , BIGLONG=FALSE )
Lname <- list.files(path=J , pattern='SEGY', full.names=TRUE)
zed = read1segy(Lname[1], Iendian = theENDIAN,
HEADONLY = FALSE, BIGLONG = FALSE)
Run the code above in your browser using DataLab