Nothing
# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
scaleC <- function(X) {
.Call('Coxnet_scaleC', PACKAGE = 'Coxnet', X)
}
softC <- function(z, lambda) {
.Call('Coxnet_softC', PACKAGE = 'Coxnet', z, lambda)
}
OmegaC <- function(Omega, sgn) {
.Call('Coxnet_OmegaC', PACKAGE = 'Coxnet', Omega, sgn)
}
OmegaSC <- function(OmegaS, sgn) {
.Call('Coxnet_OmegaSC', PACKAGE = 'Coxnet', OmegaS, sgn)
}
max_lambdaC <- function(X, tevent, N, nevent, nevent1, loc1, n, alpha, wbeta, N0) {
.Call('Coxnet_max_lambdaC', PACKAGE = 'Coxnet', X, tevent, N, nevent, nevent1, loc1, n, alpha, wbeta, N0)
}
pletaCm <- function(xb, exb, nevent, nevent1, loc1, n, ifast, itwo) {
.Call('Coxnet_pletaCm', PACKAGE = 'Coxnet', xb, exb, nevent, nevent1, loc1, n, ifast, itwo)
}
cvtrimC <- function(beta, nn, nn2, loco, XF, NF, neventF, nevent1F, loc1F, nF, X, N, nevent, nevent1, loc1, n, ifast, itwo) {
.Call('Coxnet_cvtrimC', PACKAGE = 'Coxnet', beta, nn, nn2, loco, XF, NF, neventF, nevent1F, loc1F, nF, X, N, nevent, nevent1, loc1, n, ifast, itwo)
}
coxenetC <- function(X, tevent, alpha, lambda, nlambda, wbeta, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast) {
.Call('Coxnet_coxenetC', PACKAGE = 'Coxnet', X, tevent, alpha, lambda, nlambda, wbeta, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast)
}
cvcoxenetC <- function(X, tevent, alpha, lambda, nlambda, wbeta, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast, XF, NF, neventF, nevent1F, loc1F, nF) {
.Call('Coxnet_cvcoxenetC', PACKAGE = 'Coxnet', X, tevent, alpha, lambda, nlambda, wbeta, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast, XF, NF, neventF, nevent1F, loc1F, nF)
}
coxnetC <- function(X, tevent, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast) {
.Call('Coxnet_coxnetC', PACKAGE = 'Coxnet', X, tevent, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast)
}
cvcoxnetC <- function(X, tevent, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast, XF, NF, neventF, nevent1F, loc1F, nF) {
.Call('Coxnet_cvcoxnetC', PACKAGE = 'Coxnet', X, tevent, alpha, lambda, nlambda, wbeta, Omega, loc, nadj, N, nevent, nevent1, loc1, n, p, N0, thresh, maxit, ifast, XF, NF, neventF, nevent1F, loc1F, nF)
}
max_loclambdaC <- function(X, tevent, Kh, Kh1, N, nevent, nevent1, loc1, n, alpha, wbeta, N0) {
.Call('Coxnet_max_loclambdaC', PACKAGE = 'Coxnet', X, tevent, Kh, Kh1, N, nevent, nevent1, loc1, n, alpha, wbeta, N0)
}
alocletaC <- function(eta, tevent, Kh, Kh1, N, nevent, nevent1, loc1, n) {
.Call('Coxnet_alocletaC', PACKAGE = 'Coxnet', eta, tevent, Kh, Kh1, N, nevent, nevent1, loc1, n)
}
locletaC <- function(eta, Kh, nevent, nevent1, loc1, n) {
.Call('Coxnet_locletaC', PACKAGE = 'Coxnet', eta, Kh, nevent, nevent1, loc1, n)
}
loceobjF <- function(beta, eta, lambda1, lambda2, Kh, nevent, nevent1, loc1, n, N0) {
.Call('Coxnet_loceobjF', PACKAGE = 'Coxnet', beta, eta, lambda1, lambda2, Kh, nevent, nevent1, loc1, n, N0)
}
loclbetaC <- function(beta, X, Kh, N, nevent, nevent1, loc1, n) {
.Call('Coxnet_loclbetaC', PACKAGE = 'Coxnet', beta, X, Kh, N, nevent, nevent1, loc1, n)
}
locoxenetC <- function(X, tevent, alpha, lambda, nlambda, wbeta, Kh, Kh1, N, nevent, nevent1, loc1, n, p, N0, thresh, thresh2, maxit) {
.Call('Coxnet_locoxenetC', PACKAGE = 'Coxnet', X, tevent, alpha, lambda, nlambda, wbeta, Kh, Kh1, N, nevent, nevent1, loc1, n, p, N0, thresh, thresh2, maxit)
}
cvlocoxenetC <- function(X, tevent, alpha, lambda, nlambda, wbeta, Kh, Kh1, N, nevent, nevent1, loc1, n, p, N0, thresh, thresh2, maxit, XF, KhF, NF, neventF, nevent1F, loc1F, nF) {
.Call('Coxnet_cvlocoxenetC', PACKAGE = 'Coxnet', X, tevent, alpha, lambda, nlambda, wbeta, Kh, Kh1, N, nevent, nevent1, loc1, n, p, N0, thresh, thresh2, maxit, XF, KhF, NF, neventF, nevent1F, loc1F, nF)
}
locoxnetC <- function(X, tevent, alpha, lambda, nlambda, wbeta, L, Omega, Kh, Kh1, N, nevent, nevent1, loc1, n, p, N0, thresh, thresh2, maxit) {
.Call('Coxnet_locoxnetC', PACKAGE = 'Coxnet', X, tevent, alpha, lambda, nlambda, wbeta, L, Omega, Kh, Kh1, N, nevent, nevent1, loc1, n, p, N0, thresh, thresh2, maxit)
}
cvlocoxnetC <- function(X, tevent, alpha, lambda, nlambda, wbeta, L, Omega, Kh, Kh1, N, nevent, nevent1, loc1, n, p, N0, thresh, thresh2, maxit, XF, KhF, NF, neventF, nevent1F, loc1F, nF) {
.Call('Coxnet_cvlocoxnetC', PACKAGE = 'Coxnet', X, tevent, alpha, lambda, nlambda, wbeta, L, Omega, Kh, Kh1, N, nevent, nevent1, loc1, n, p, N0, thresh, thresh2, maxit, XF, KhF, NF, neventF, nevent1F, loc1F, nF)
}
# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
.Call('Coxnet_RcppExport_registerCCallable', PACKAGE = 'Coxnet')
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.