R/lrv.R

"prob2lrv" <-
function(f) {
   if(! check.fs(f)) return()
   return(-log((1-f)/f))
}

"lrv2prob" <-
function(lrv) {
   return(1/(exp(-1*lrv) + 1))
}

Try the lmomco package in your browser

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

lmomco documentation built on Aug. 30, 2023, 5:10 p.m.