R/qualmrq.R

"qualmrq" <-
function(f, para, paracheck=TRUE) {
    if(! check.fs(f)) return()
    if(paracheck == TRUE) {
      if(! are.parlmrq.valid(para)) return()
    }
    U <- para$para[1]
    A <- para$para[2]

    ApU <- A + U
    x <- sapply(f, function(f) { return(-ApU * log( 1 - f ) - 2*A*f) })
    names(x) <- NULL
    return(x)
}

Try the lmomco package in your browser

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

lmomco documentation built on May 29, 2024, 10:06 a.m.