R/b.guten.R

Defines functions b.guten

Documented in b.guten

b.guten <-
function(magn,m0=min(magn)){
            x     =subset(magn,subset=(magn>m0))
	    x     =x-m0
            n	  =length(x)
            beta  =n/sum(x)
            samplevar =beta/sum(x)
	    b	  =beta/log(10)
	    se	  =sqrt(samplevar/log(10))
	    
            return(c(b,se))
            }

Try the etasFLP package in your browser

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

etasFLP documentation built on May 1, 2019, 6:48 p.m.