R/RcppExports.R

Defines functions calculatePartialResiduals calculateModifiedDevianceResiduals calculateScoreResiduals calculateCoxSnellResiduals calculateQuantileResiduals calculateDevianceResiduals calculatePearsonResiduals calculateResponseResiduals calculateQuantiles calculateProbabilities calculateDensities calculateMeans calculateParameters

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

calculateParameters <- function(X1, X2, X3, X4, X5, beta1, beta2, beta3, beta4, beta5, link_types, scale_factors, family) {
    .Call(`_gkwreg_calculateParameters`, X1, X2, X3, X4, X5, beta1, beta2, beta3, beta4, beta5, link_types, scale_factors, family)
}

calculateMeans <- function(params, family = "gkw") {
    .Call(`_gkwreg_calculateMeans`, params, family)
}

calculateDensities <- function(y, params, family = "gkw", log = FALSE) {
    .Call(`_gkwreg_calculateDensities`, y, params, family, log)
}

calculateProbabilities <- function(y, params, family = "gkw") {
    .Call(`_gkwreg_calculateProbabilities`, y, params, family)
}

calculateQuantiles <- function(probs, params, family = "gkw") {
    .Call(`_gkwreg_calculateQuantiles`, probs, params, family)
}

calculateResponseResiduals <- function(y, fitted) {
    .Call(`_gkwreg_calculateResponseResiduals`, y, fitted)
}

calculatePearsonResiduals <- function(y, fitted, params, family = "gkw") {
    .Call(`_gkwreg_calculatePearsonResiduals`, y, fitted, params, family)
}

calculateDevianceResiduals <- function(y, fitted, params, family = "gkw") {
    .Call(`_gkwreg_calculateDevianceResiduals`, y, fitted, params, family)
}

calculateQuantileResiduals <- function(y, params, family = "gkw") {
    .Call(`_gkwreg_calculateQuantileResiduals`, y, params, family)
}

calculateCoxSnellResiduals <- function(y, params, family = "gkw") {
    .Call(`_gkwreg_calculateCoxSnellResiduals`, y, params, family)
}

calculateScoreResiduals <- function(y, fitted, params, family = "gkw") {
    .Call(`_gkwreg_calculateScoreResiduals`, y, fitted, params, family)
}

calculateModifiedDevianceResiduals <- function(y, fitted, params, family = "gkw") {
    .Call(`_gkwreg_calculateModifiedDevianceResiduals`, y, fitted, params, family)
}

calculatePartialResiduals <- function(y, fitted, X, beta, covariate_idx) {
    .Call(`_gkwreg_calculatePartialResiduals`, y, fitted, X, beta, covariate_idx)
}

Try the gkwreg package in your browser

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

gkwreg documentation built on Nov. 27, 2025, 5:06 p.m.