Iendian = .Platform$endian
data(GH)
########## create some SAC files:
apath = tempdir()
J = rseis2sac(GH, sel = 1:5, path = apath, BIGLONG =FALSE )
#### get SAC file file names:
Lname <- list.files(path=J , pattern='SAC', full.names=TRUE)
##### convert each file to a saved RSEIS file, saved in apath
#### reading in SAC files, kind=2
convert2Rseis(Lname, NEWDIR = apath, kind = 2, Iendian = Iendian, BIGLONG =
FALSE )
#### check if files are there
list.files(path=apath)
Run the code above in your browser using DataLab