deconinst {RSEIS}

Deconvolve instrument response from seismic data

Description

Deconvolve instrument response from seismic data

Usage

deconinst(data, sintr, KAL, key, Calibnew, waterlevel = 1e-08)

Arguments

data

Real vector of data

sintr

sample interval

KAL

Kalibrated response list

key

number of instrument

Calibnew

new instrument, complex vector or

waterlevel

waterlevel for low frequency division

Details

To avoid problems with dividing by very small numbers, water level is set =1.e-8

Value

deconvolved signal

Note

Calibnew(1)==3 then use a cos (hanning) taper

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

See Also

PreSet.Instr, ReadSet.Instr, INSTresponse

Examples

Kal <- PreSet.Instr()
amp <- rnorm(1024)
Calibnew <- c(1,1.0, 0.0 )

dy  <- deconinst(amp, 0.008, Kal,1, Calibnew, waterlevel=1.e-8)