R/FindDiscon.R

Defines functions FindDiscon

Documented in FindDiscon

FindDiscon <-
function(model)
{

radii=NULL


zdiff=diff(model$z)
zindy=which(zdiff==0)


radii=model$rp-model$z[zindy]
return(radii)
}

Try the TauP.R package in your browser

Any scripts or data that you put into this service are public.

TauP.R documentation built on May 2, 2019, 3:25 a.m.