R/RcppExports.R

In FMCCSD: Efficient Estimation of Clustered Current Status Data

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

likelihoodi <- function(b, parameters, Delta, X, Z, ni, r, blC, betadim, gammadim) {
    .Call(`_FMCCSD_likelihoodi`, b, parameters, Delta, X, Z, ni, r, blC, betadim, gammadim)
}

weightfunction <- function(parameters, rules, Delta, X, Z, n, ni, r, blC, betadim, gammadim) {
    .Call(`_FMCCSD_weightfunction`, parameters, rules, Delta, X, Z, n, ni, r, blC, betadim, gammadim)
}

MMfunctioni <- function(b, parameters, lastpar, Delta, X, Z, ni, r, blC, betadim, gammadim) {
    .Call(`_FMCCSD_MMfunctioni`, b, parameters, lastpar, Delta, X, Z, ni, r, blC, betadim, gammadim)
}

targetfunc <- function(parameters, lastpar, rules, C, Delta, X, Z, n, ni, r, blC, betadim, gammadim, R, lambda) {
    .Call(`_FMCCSD_targetfunc`, parameters, lastpar, rules, C, Delta, X, Z, n, ni, r, blC, betadim, gammadim, R, lambda)
}

MMfunctioninofrailty <- function(b, parameters, lastpar, Delta, X, Z, ni, r, blC, betadim, gammadim) {
    .Call(`_FMCCSD_MMfunctioninofrailty`, b, parameters, lastpar, Delta, X, Z, ni, r, blC, betadim, gammadim)
}

targetfuncfrailty <- function(parameters, lastpar, rules, C, Delta, X, Z, n, ni, r, blC, betadim, gammadim, R, lambda) {
    .Call(`_FMCCSD_targetfuncfrailty`, parameters, lastpar, rules, C, Delta, X, Z, n, ni, r, blC, betadim, gammadim, R, lambda)
}

likelihoodfunc1current <- function(b, parameters, C, Delta, X, Z, ni, r, blC, betadim, gammadim) {
    .Call(`_FMCCSD_likelihoodfunc1current`, b, parameters, C, Delta, X, Z, ni, r, blC, betadim, gammadim)
}

testquadrature1current <- function(parameters, rules, C, Delta, X, Z, n, ni, r, blC, betadim, gammadim, R, lambda) {
    .Call(`_FMCCSD_testquadrature1current`, parameters, rules, C, Delta, X, Z, n, ni, r, blC, betadim, gammadim, R, lambda)
}

penaltyterm <- function(psi, lambda, R) {
    .Call(`_FMCCSD_penaltyterm`, psi, lambda, R)
}

likelihoodfunc1currentnofrailty <- function(b, parameters, C, Delta, X, Z, ni, r, blC, betadim, gammadim) {
    .Call(`_FMCCSD_likelihoodfunc1currentnofrailty`, b, parameters, C, Delta, X, Z, ni, r, blC, betadim, gammadim)
}

testquadrature1currentnofrailty <- function(parameters, rules, C, Delta, X, Z, n, ni, r, blC, betadim, gammadim, R, lambda) {
    .Call(`_FMCCSD_testquadrature1currentnofrailty`, parameters, rules, C, Delta, X, Z, n, ni, r, blC, betadim, gammadim, R, lambda)
}