https://github.com/cran/gbs
Tip revision: 39a4386f7cc237a6a5f5386167a386c4ae2f755f authored by Victor Leiva on 05 May 2008, 00:00:00 UTC
version 1.0
version 1.0
Tip revision: 39a4386
frgbs.R
`frgbs` <-
function(x,
alpha = 1.0,
beta = 1.0,
nu = 1.0,
kernel = "normal"){
hazard <- switch(kernel,
"normal" = {
dgbs(x, alpha, beta, nu = 1.0, "normal") /
(1 - pgbs(x, alpha, beta, nu = 1.0, "normal"))
},
"t" = {
dgbs(x, alpha, beta, nu, "t") /
(1 - pgbs(x, alpha, beta, nu, "t"))
},
"laplace" = {
dgbs(x, alpha, beta, nu = 1.0, "laplace") /
(1 - pgbs(x, alpha, beta, nu = 1.0, "laplace"))
},
"logistic" = {
dgbs(x, alpha, beta, nu = 1.0, "logistic") /
(1 - pgbs(x, alpha, beta, nu = 1.0, "logistic"))
}
)
return(hazard)
}