# 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`)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.