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))
}
wasquith/lmomco documentation built on April 20, 2024, 7:20 p.m.