# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
eigenPower_Rcpp <- function(A, v0, tol = 1e-6, maxit = 1e3L, mode = 1L, verbose = 0L) {
.Call('_cpca_eigenPower_Rcpp', PACKAGE = 'cpca', A, v0, tol, maxit, mode, verbose)
}
eigenPower_RcppEigen <- function(A, v0, tol = 1e-6, maxit = 1e3L, ncomp = 1L, symmetric = FALSE, verbose = 0L) {
.Call('_cpca_eigenPower_RcppEigen', PACKAGE = 'cpca', A, v0, tol, maxit, ncomp, symmetric, verbose)
}
numericNorm <- function(x) {
.Call('_cpca_numericNorm', PACKAGE = 'cpca', x)
}
numericProdMatVec <- function(mat, vec) {
.Call('_cpca_numericProdMatVec', PACKAGE = 'cpca', mat, vec)
}
numericMultVec <- function(x, a) {
.Call('_cpca_numericMultVec', PACKAGE = 'cpca', x, a)
}
eigen_RcppEigen <- function(mat) {
.Call('_cpca_eigen_RcppEigen', PACKAGE = 'cpca', mat)
}
eigenSelfAdjoint_RcppEigen <- function(mat) {
.Call('_cpca_eigenSelfAdjoint_RcppEigen', PACKAGE = 'cpca', mat)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.