R/blogit.R

Defines functions blog bprobit bcloglog blogit

Documented in bcloglog blog blogit bprobit

# bounded links for pseudovalues

blogit <- function(edge=.05) {
    new <- make.link("logit")
    new$linkfun <- function(mu) { 
        x <- (pmax(edge, pmin(mu, 1-edge)))
        log(x/(1-x))
    }
    new$name <- "blogit"
    new
}

bcloglog <- function(edge=.05) {
    new <- make.link("cloglog")
    new$linkfun <- function(mu) { 
        x <- (pmax(edge, pmin(mu, 1-edge)))
        log(-log(1-x))
    }
    new$name <- "bcloglog"
    new
}

bprobit <- function(edge=.05) {
    new <- make.link("probit")
    new$linkfun <- function(mu) { 
        x <- (pmax(edge, pmin(mu, 1-edge)))
        qnorm(x)
    }
    new$name <- "probit"
    new
}

blog <- function(edge= .05) {
    new <- make.link("log")
    new$linkfun <- function(mu) { 
        x <- pmax(edge, mu)
        log(x)
    }
    new$name <- "blog"
    new
}
   

Try the survival package in your browser

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

survival documentation built on Aug. 24, 2021, 5:06 p.m.