R/RcppExports.R

In joolee0918/fcoxph: Functional linear Cox regression model

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

fagfit_init <- function(surv2, covar2, strata2, weights, offset, ibeta, sort1, sort2, method, eps) {
    .Call(`_fcoxph_fagfit_init`, surv2, covar2, strata2, weights, offset, ibeta, sort1, sort2, method, eps)
}

fagfit_loglik <- function(surv2, covar2, strata2, weights, offset, ibeta, sort1, sort2, method, eps) {
    .Call(`_fcoxph_fagfit_loglik`, surv2, covar2, strata2, weights, offset, ibeta, sort1, sort2, method, eps)
}

fag_score <- function(n, nvar, y, covar2, strata, score, weights, method) {
    .Call(`_fcoxph_fag_score`, n, nvar, y, covar2, strata, score, weights, method)
}

fcoxfit_init <- function(time, status, covar2, offset, weights, strata2, eps, method, ibeta) {
    .Call(`_fcoxph_fcoxfit_init`, time, status, covar2, offset, weights, strata2, eps, method, ibeta)
}

fcoxfit_loglik <- function(time, status, covar2, offset, weights, strata2, eps, method, ibeta) {
    .Call(`_fcoxph_fcoxfit_loglik`, time, status, covar2, offset, weights, strata2, eps, method, ibeta)
}

fcox_score <- function(n, nvar, y, covar2, strata, score, weights, method) {
    .Call(`_fcoxph_fcox_score`, n, nvar, y, covar2, strata, score, weights, method)
}

fagfit_cpp <- function(surv2, covar2, strata2, weights, offset, ibeta, sort1, sort2, method, maxiter, eps, H, Dstar, G, lambda, alpha, gamma, M, d, n_npvar, Dnrow, pen, penalty_where, f, df_f) {
    .Call(`_fcoxph_fagfit_cpp`, surv2, covar2, strata2, weights, offset, ibeta, sort1, sort2, method, maxiter, eps, H, Dstar, G, lambda, alpha, gamma, M, d, n_npvar, Dnrow, pen, penalty_where, f, df_f)
}

fcoxfit_cpp <- function(time, status, covar2, offset, weights, strata2, maxiter, eps, H, Dstar, G, method, ibeta, lambda, alpha, gamma, M, d, n_npvar, Dnrow, pen, penalty_where, f, df_f) {
    .Call(`_fcoxph_fcoxfit_cpp`, time, status, covar2, offset, weights, strata2, maxiter, eps, H, Dstar, G, method, ibeta, lambda, alpha, gamma, M, d, n_npvar, Dnrow, pen, penalty_where, f, df_f)
}

wshoot1 <- function(x, y, init, pen, weight, lambda, alpha, maxiter, tol, n) {
    .Call(`_fcoxph_wshoot1`, x, y, init, pen, weight, lambda, alpha, maxiter, tol, n)
}