if (FALSE) {
fnames = list.files(path="/Users/lees/Site/Buf2014/ALL_SEGY",
pattern=NULL, full.names=TRUE )
for(i in 1:length(fnames))
{
fn1 = fnames[i]
bed = read1segy(fn1 , Iendian = 1 , HEADONLY=TRUE, BIGLONG=FALSE)
scaly[i] = bed$HEAD$scale_fac
print(paste(i, fn1, bed$HEAD$station_name , bed$HEAD$channel_name,
bed$HEAD$scale_fac, bed$HEAD$gainConst) )
}
}
Run the code above in your browser using DataLab