R/RcppExports.R

Defines functions HnCppBloc HnCppIntrinsic HnCpp gmeanSO3C HartmedianSO3C medianSO3C meanQ4C meanSO3C projectSO3C logSO3CMulti logSO3C expskewCMulti expskewC checkSO3 checkQ4 genrC pMatC Q4defaultC SO3defaultC eskewC zhangMedianC cdfunsCSO3 zhangQ4 cdfunsCMedian cdfunsC oneRdistC EdistC rdistSO3C RdistC fisherBootC fisherAxisCSymmetric fisherAxisC both_MCMC_CPP afun_CPP kap_MCMC_CPP S_MCMC_CPP lpcayley lpfisher lpvmises centerCpp rvmisesCPP rfisherCpp rmbCpp rcayleyCpp

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

rcayleyCpp <- function(n, kappa) {
    .Call(`_rotations_rcayleyCpp`, n, kappa)
}

rmbCpp <- function(n, kappa) {
    .Call(`_rotations_rmbCpp`, n, kappa)
}

rfisherCpp <- function(n, kappa) {
    .Call(`_rotations_rfisherCpp`, n, kappa)
}

rvmisesCPP <- function(n, kappa) {
    .Call(`_rotations_rvmisesCPP`, n, kappa)
}

centerCpp <- function(Rs, S) {
    .Call(`_rotations_centerCpp`, Rs, S)
}

lpvmises <- function(Rs, S, kappa) {
    .Call(`_rotations_lpvmises`, Rs, S, kappa)
}

lpfisher <- function(Rs, S, kappa) {
    .Call(`_rotations_lpfisher`, Rs, S, kappa)
}

lpcayley <- function(Rs, S, kappa) {
    .Call(`_rotations_lpcayley`, Rs, S, kappa)
}

S_MCMC_CPP <- function(Rs, oldS, rho, kappa, Dist) {
    .Call(`_rotations_S_MCMC_CPP`, Rs, oldS, rho, kappa, Dist)
}

kap_MCMC_CPP <- function(Rs, oldKappa, sigma, S, Dist) {
    .Call(`_rotations_kap_MCMC_CPP`, Rs, oldKappa, sigma, S, Dist)
}

afun_CPP <- function(R1, R2) {
    .Call(`_rotations_afun_CPP`, R1, R2)
}

both_MCMC_CPP <- function(Rs, S0, kappa0, rho, sigma, burnin, B, Dist) {
    .Call(`_rotations_both_MCMC_CPP`, Rs, S0, kappa0, rho, sigma, burnin, B, Dist)
}

fisherAxisC <- function(Qs, Qhat) {
    .Call(`_rotations_fisherAxisC`, Qs, Qhat)
}

fisherAxisCSymmetric <- function(Qs, Qhat) {
    .Call(`_rotations_fisherAxisCSymmetric`, Qs, Qhat)
}

fisherBootC <- function(Qs, m, symm) {
    .Call(`_rotations_fisherBootC`, Qs, m, symm)
}

RdistC <- function(Q1, Q2) {
    .Call(`_rotations_RdistC`, Q1, Q2)
}

rdistSO3C <- function(Rs, R2) {
    .Call(`_rotations_rdistSO3C`, Rs, R2)
}

EdistC <- function(Q1, Q2) {
    .Call(`_rotations_EdistC`, Q1, Q2)
}

oneRdistC <- function(Q1, Q2) {
    .Call(`_rotations_oneRdistC`, Q1, Q2)
}

cdfunsC <- function(Qs, Qhat) {
    .Call(`_rotations_cdfunsC`, Qs, Qhat)
}

cdfunsCMedian <- function(Qs, Qhat) {
    .Call(`_rotations_cdfunsCMedian`, Qs, Qhat)
}

zhangQ4 <- function(Q, m) {
    .Call(`_rotations_zhangQ4`, Q, m)
}

cdfunsCSO3 <- function(Rs, Rhat) {
    .Call(`_rotations_cdfunsCSO3`, Rs, Rhat)
}

zhangMedianC <- function(Rs, m) {
    .Call(`_rotations_zhangMedianC`, Rs, m)
}

eskewC <- function(U) {
    .Call(`_rotations_eskewC`, U)
}

SO3defaultC <- function(U, theta) {
    .Call(`_rotations_SO3defaultC`, U, theta)
}

Q4defaultC <- function(U, theta) {
    .Call(`_rotations_Q4defaultC`, U, theta)
}

pMatC <- function(p) {
    .Call(`_rotations_pMatC`, p)
}

genrC <- function(r, S, SO3, u) {
    .Call(`_rotations_genrC`, r, S, SO3, u)
}

checkQ4 <- function(Q) {
    .Call(`_rotations_checkQ4`, Q)
}

checkSO3 <- function(Rs) {
    .Call(`_rotations_checkSO3`, Rs)
}

expskewC <- function(M) {
    .Call(`_rotations_expskewC`, M)
}

expskewCMulti <- function(M) {
    .Call(`_rotations_expskewCMulti`, M)
}

logSO3C <- function(R) {
    .Call(`_rotations_logSO3C`, R)
}

logSO3CMulti <- function(R) {
    .Call(`_rotations_logSO3CMulti`, R)
}

projectSO3C <- function(M) {
    .Call(`_rotations_projectSO3C`, M)
}

meanSO3C <- function(Rs) {
    .Call(`_rotations_meanSO3C`, Rs)
}

meanQ4C <- function(Q) {
    .Call(`_rotations_meanQ4C`, Q)
}

medianSO3C <- function(Rs, maxIterations, maxEps) {
    .Call(`_rotations_medianSO3C`, Rs, maxIterations, maxEps)
}

HartmedianSO3C <- function(Rs, maxIterations, maxEps) {
    .Call(`_rotations_HartmedianSO3C`, Rs, maxIterations, maxEps)
}

gmeanSO3C <- function(Rs, maxIterations, maxEps) {
    .Call(`_rotations_gmeanSO3C`, Rs, maxIterations, maxEps)
}

HnCpp <- function(Qs) {
    .Call(`_rotations_HnCpp`, Qs)
}

HnCppIntrinsic <- function(Qs) {
    .Call(`_rotations_HnCppIntrinsic`, Qs)
}

HnCppBloc <- function(Qs, Cs) {
    .Call(`_rotations_HnCppBloc`, Qs, Cs)
}

# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
    .Call('_rotations_RcppExport_registerCCallable', PACKAGE = 'rotations')
})

Try the rotations package in your browser

Any scripts or data that you put into this service are public.

rotations documentation built on June 25, 2022, 1:06 a.m.