## Not run:
#
# 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) )
#
# }
#
#
# ## End(Not run)
Run the code above in your browser using DataLab