convert2Rseis(RSEIS)
convert2Rseis()所属R语言包：RSEIS
Convert Seismic data to RSEIS
地震到RSEIS转换数据
译者：生物统计家园网 机器人LoveR
描述----------Description----------
Convert Seismic in SAC or SEGY format to RSEIS native format.
转换的地震，在SAC或SEGY格式RSEIS原生格式。
用法----------Usage----------
convert2Rseis(FLS, NEWDIR = ".", kind = 1, Iendian = "little", BIGLONG =
FALSE, NEWsta = "", NEWcomp = "")
参数----------Arguments----------
参数：FLS
array of File names
文件名的数组
参数：NEWDIR
Destination directory path
目标目录路径
参数：kind
an integer 1, 2, 3; 0=R(DAT) , 1 = segy, 2 = sac, 3 = AH.
整数1，2，3; 0 = R（DAT），1 = SEGY，2 =囊，3 = AH。
参数：Iendian
Endian-ness of the data: 1,2,3: "little", "big", "swap". Default = 1 (little)
字节序的数据显示：1,2,3：“小”，“大”，“交换”。默认值= 1（小）
参数：BIGLONG
logical, TRUE=long=8 bytes
逻辑，TRUE =长= 8个字节
参数：NEWsta
character vector, stations associated with the vector of files
字符向量，站与矢量文件
参数：NEWcomp
character vector, component name associated with the vector of files
特征向量，相关的组件名称的矢量文件
Details
详细信息----------Details----------
Converts the data to R format so it can be loaded with the load command. After this conversion, files should be loaded in subsequent calls by using kind=0.
将已至R格式的数据，所以它可以用load命令加载。经过这样的转换，文件应该被加载在随后的调用，通过使用一种= 0。
值----------Value----------
Side effects - creates new files on local system
副作用 - 本地系统上创建新文件
注意----------Note----------
JGET.seis extracts digital seismic data from binary files stored in the file system. The program uses readBin for I/O and passes data back to R. Currently SAC, SEGY formats are installed but it is easy to extend. AH format is available for LINUX systems, but there were problems compiling in WINDOWS and MACOS so this feature was removed. A filter for mseed format is currently being developed.
JGET.seis提取数字地震数据从二进制文件存储在文件系统中。该方案采用readBin I / O的数据传递回R.目前SAC，SEGY格式的安装，但它很容易扩展。 AH格式可以是Linux系统，但也有编译Windows和MacOS的问题，所以此功能。一个过滤器为mseed格式是目前正在开发中。
（作者）----------Author(s)----------
Jonathan M. Lees<jonathan.lees@unc.edu>
参见----------See Also----------
JGET.seis, JSAC.seis , Mine.seis
JGET.seis，JSAC.seis，Mine.seis
实例----------Examples----------
## Not run: [＃不运行：]
############ example of different scenarios[＃＃＃＃＃＃＃＃＃＃＃例如不同的场景]
### make list of the files[＃＃的文件列表]
fls = list.files(path="/home/lees/SAC", pat="sac")
### convert them to R[＃＃转换到R]
#### was created on a little endian machine and is being read on a little endian[＃＃＃little endian机器上创建一个正在读小端]
convert2Rseis(fls, NEWDIR = "/home/lees/MY_RDATA", kind = 2, Iendian = "little", BIGLONG = FALSE)
#### was created on a little endian machine and is being read on a big endian[＃＃＃little endian机器上创建一个正在读大端]
convert2Rseis(fls, NEWDIR = "/home/lees/MY_RDATA", kind = 2, Iendian = "swap", BIGLONG = FALSE)
#### was created on a little endian machine and is being read on a big[＃＃＃little endian机器上创建一个正在读上了一个大]
#### endian, with the 64 bit machine used LONG=8[＃＃＃endian格式，64位机采用长= 8]
convert2Rseis(fls, NEWDIR = "/home/lees/MY_RDATA", kind = 2, Iendian = "swap", BIGLONG = TRUE)
F90dir = "/mnt/flash/FUEGO/2009/F900"
kfl = list.files(path=F90dir, full.names=TRUE)
bname = basename(kfl)
### now we want to convert the station names[＃＃现在我们要转换的站名]
### extract the STA name from the file names:[＃＃从文件名中提取STA名称：]
STA = unlist( lapply( strsplit(split="\.", bname), getmem , 3) )
### extract comp name - in this case needs further extraction[＃＃提取小样图的名字 - 在这种情况下，需要进一步提取]
COMP1 = unlist( lapply( strsplit(split="\.", bname), getmem , 4) )
COMP = substr(COMP1, 3, 3)
convert2Rseis(kfl, NEWDIR="/home/lees/Site/Fuego/2009", kind = 2, Iendian="swap" , BIGLONG=FALSE, NEWsta=STA, NEWcomp=COMP )
## End(Not run)[＃（不执行）]
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。
|
发表于 2012-9-28 21:25:12
