R/RcppExports.R

Defines functions gmedian gmean qts2aats_impl qts2avts_impl qts2ats_impl qts2nts_impl qts2dts_impl median_qts_impl mean_qts_impl GetCostMatrix inverse_qts_impl multiply_qts_impl moving_average_qts_impl hemispherize_qts_impl smooth_qts_impl resample_qts_impl centring_qts_impl exp_qts_impl log_qts_impl derivative_qts_impl normalize_qts_impl reorient_qts_impl GetGeodesicMean RegularizeGrid GeodesicQuaternionDistance

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

GeodesicQuaternionDistance <- function(M1, M2, index1, index2) {
    .Call(`_squat_GeodesicQuaternionDistance`, M1, M2, index1, index2)
}

RegularizeGrid <- function(grid, values, gridLowerBound, gridUpperBound, numberOfPoints) {
    .Call(`_squat_RegularizeGrid`, grid, values, gridLowerBound, gridUpperBound, numberOfPoints)
}

GetGeodesicMean <- function(values) {
    .Call(`_squat_GetGeodesicMean`, values)
}

reorient_qts_impl <- function(qts) {
    .Call(`_squat_reorient_qts_impl`, qts)
}

normalize_qts_impl <- function(qts) {
    .Call(`_squat_normalize_qts_impl`, qts)
}

derivative_qts_impl <- function(qts) {
    .Call(`_squat_derivative_qts_impl`, qts)
}

log_qts_impl <- function(qts) {
    .Call(`_squat_log_qts_impl`, qts)
}

exp_qts_impl <- function(qts) {
    .Call(`_squat_exp_qts_impl`, qts)
}

centring_qts_impl <- function(qts, standardize = FALSE) {
    .Call(`_squat_centring_qts_impl`, qts, standardize)
}

resample_qts_impl <- function(qts, tmin = NA_real_, tmax = NA_real_, nout = 0L) {
    .Call(`_squat_resample_qts_impl`, qts, tmin, tmax, nout)
}

smooth_qts_impl <- function(qts, alpha = 0.5) {
    .Call(`_squat_smooth_qts_impl`, qts, alpha)
}

hemispherize_qts_impl <- function(qts) {
    .Call(`_squat_hemispherize_qts_impl`, qts)
}

moving_average_qts_impl <- function(qts, window_size) {
    .Call(`_squat_moving_average_qts_impl`, qts, window_size)
}

multiply_qts_impl <- function(qts_left, qts_right) {
    .Call(`_squat_multiply_qts_impl`, qts_left, qts_right)
}

inverse_qts_impl <- function(qts) {
    .Call(`_squat_inverse_qts_impl`, qts)
}

GetCostMatrix <- function(qts1, qts2) {
    .Call(`_squat_GetCostMatrix`, qts1, qts2)
}

mean_qts_impl <- function(qts_list) {
    .Call(`_squat_mean_qts_impl`, qts_list)
}

median_qts_impl <- function(qts_list) {
    .Call(`_squat_median_qts_impl`, qts_list)
}

qts2dts_impl <- function(first_qts, second_qts) {
    .Call(`_squat_qts2dts_impl`, first_qts, second_qts)
}

qts2nts_impl <- function(qts, disable_normalization = FALSE) {
    .Call(`_squat_qts2nts_impl`, qts, disable_normalization)
}

qts2ats_impl <- function(qts, disable_normalization = FALSE) {
    .Call(`_squat_qts2ats_impl`, qts, disable_normalization)
}

qts2avts_impl <- function(qts, body_frame = FALSE) {
    .Call(`_squat_qts2avts_impl`, qts, body_frame)
}

qts2aats_impl <- function(qts) {
    .Call(`_squat_qts2aats_impl`, qts)
}

gmean <- function(quaternionSample, maxIterations = 2000L, maxEpsilon = 1.0e-5) {
    .Call(`_squat_gmean`, quaternionSample, maxIterations, maxEpsilon)
}

gmedian <- function(quaternionSample, maxIterations = 2000L, maxEpsilon = 1.0e-5) {
    .Call(`_squat_gmedian`, quaternionSample, maxIterations, maxEpsilon)
}

# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
    .Call(`_squat_RcppExport_registerCCallable`)
})
astamm/squad documentation built on Jan. 26, 2024, 5:30 p.m.