Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
nzcount <- function(x) {
.Call('_secure_nzcount', PACKAGE = 'secure', x)
}
wpow <- function(x, gamma0) {
.Call('_secure_wpow', PACKAGE = 'secure', x, gamma0)
}
softThres <- function(x, lambda) {
.Call('_secure_softThres', PACKAGE = 'secure', x, lambda)
}
bregpcdenet_Rcpp <- function(XY, XX, A, B, Lambda1, Lambda2, Mu, Nu, Beta0, control) {
.Call('_secure_bregpcdenet_Rcpp', PACKAGE = 'secure', XY, XX, A, B, Lambda1, Lambda2, Mu, Nu, Beta0, control)
}
bregpcdenetdiag_Rcpp <- function(XY, XX, A, B, Lambda1, Lambda2, Mu, Nu, Beta0, control) {
.Call('_secure_bregpcdenetdiag_Rcpp', PACKAGE = 'secure', XY, XX, A, B, Lambda1, Lambda2, Mu, Nu, Beta0, control)
}
secure_SURR_Rcpp <- function(X, Y, Au, Av, bu, bv, uk, vk, dk, nlambda, control) {
.Call('_secure_secure_SURR_Rcpp', PACKAGE = 'secure', X, Y, Au, Av, bu, bv, uk, vk, dk, nlambda, control)
}
secure_SURR_Rcpp_ortho <- function(X, Y, Au, Av, bu, bv, uk, vk, dk, nlambda, control) {
.Call('_secure_secure_SURR_Rcpp_ortho', PACKAGE = 'secure', X, Y, Au, Av, bu, bv, uk, vk, dk, nlambda, control)
}
secure_SURR_miss_Rcpp <- function(X, Y, naInd, Au, Av, bu, bv, uk, vk, dk, nlambda, control) {
.Call('_secure_secure_SURR_miss_Rcpp', PACKAGE = 'secure', X, Y, naInd, Au, Av, bu, bv, uk, vk, dk, nlambda, control)
}
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.