R/RcppExports.R

Defines functions trajAlign3d trajAlign tab_mean tab_sum tab trans_mat scale_mat trans_rows scale_rows moments_mat sd_mat spatializeArrayToLong4d spatializeArrayToLong3d spatializeArray3d spatializeArrayToLong spatializeArray spatialize4d spatialize3d spatialize getVelocities3d getVelocities getVelocity3d getVelocity getLengths3d getLengths getLength3d getLength getlast getAnglesV getAnglesP getAngleV getAngleP boxBlur gaussBlur gaussBlurSlow computeNorm select_max distMat3dV distMat3d distMatV distMat cleanAngles

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

cleanAngles <- function(as) {
    .Call(`_mousetrap_cleanAngles`, as)
}

distMat <- function(x, y, power = 2L) {
    .Call(`_mousetrap_distMat`, x, y, power)
}

distMatV <- function(x, y, power = 2L) {
    .Call(`_mousetrap_distMatV`, x, y, power)
}

distMat3d <- function(x, y, z, power = 2L) {
    .Call(`_mousetrap_distMat3d`, x, y, z, power)
}

distMat3dV <- function(x, y, z, power = 2L) {
    .Call(`_mousetrap_distMat3dV`, x, y, z, power)
}

select_max <- function(x, y) {
    .Call(`_mousetrap_select_max`, x, y)
}

computeNorm <- function(r) {
    .Call(`_mousetrap_computeNorm`, r)
}

gaussBlurSlow <- function(source, target, w, h, r) {
    .Call(`_mousetrap_gaussBlurSlow`, source, target, w, h, r)
}

gaussBlur <- function(source, target, w, h, r) {
    .Call(`_mousetrap_gaussBlur`, source, target, w, h, r)
}

boxBlur <- function(source, target, w, h, r) {
    .Call(`_mousetrap_boxBlur`, source, target, w, h, r)
}

getAngleP <- function(x, y) {
    .Call(`_mousetrap_getAngleP`, x, y)
}

getAngleV <- function(x, y) {
    .Call(`_mousetrap_getAngleV`, x, y)
}

getAnglesP <- function(xs, ys) {
    .Call(`_mousetrap_getAnglesP`, xs, ys)
}

getAnglesV <- function(xs, ys) {
    .Call(`_mousetrap_getAnglesV`, xs, ys)
}

getlast <- function(trajectories) {
    .Call(`_mousetrap_getlast`, trajectories)
}

getLength <- function(x, y) {
    .Call(`_mousetrap_getLength`, x, y)
}

getLength3d <- function(x, y, z) {
    .Call(`_mousetrap_getLength3d`, x, y, z)
}

getLengths <- function(xs, ys) {
    .Call(`_mousetrap_getLengths`, xs, ys)
}

getLengths3d <- function(xs, ys, zs) {
    .Call(`_mousetrap_getLengths3d`, xs, ys, zs)
}

getVelocity <- function(x, y) {
    .Call(`_mousetrap_getVelocity`, x, y)
}

getVelocity3d <- function(x, y, z) {
    .Call(`_mousetrap_getVelocity3d`, x, y, z)
}

getVelocities <- function(xs, ys) {
    .Call(`_mousetrap_getVelocities`, xs, ys)
}

getVelocities3d <- function(xs, ys, zs) {
    .Call(`_mousetrap_getVelocities3d`, xs, ys, zs)
}

spatialize <- function(x, y, npts) {
    .Call(`_mousetrap_spatialize`, x, y, npts)
}

spatialize3d <- function(x, y, z, npts) {
    .Call(`_mousetrap_spatialize3d`, x, y, z, npts)
}

spatialize4d <- function(x, y, z1, z2, npts) {
    .Call(`_mousetrap_spatialize4d`, x, y, z1, z2, npts)
}

spatializeArray <- function(xs, ys, n_pts) {
    .Call(`_mousetrap_spatializeArray`, xs, ys, n_pts)
}

spatializeArrayToLong <- function(xs, ys, n_pts) {
    .Call(`_mousetrap_spatializeArrayToLong`, xs, ys, n_pts)
}

spatializeArray3d <- function(xs, ys, zs, n_pts) {
    .Call(`_mousetrap_spatializeArray3d`, xs, ys, zs, n_pts)
}

spatializeArrayToLong3d <- function(xs, ys, zs, n_pts) {
    .Call(`_mousetrap_spatializeArrayToLong3d`, xs, ys, zs, n_pts)
}

spatializeArrayToLong4d <- function(xs, ys, z1s, z2s, n_pts) {
    .Call(`_mousetrap_spatializeArrayToLong4d`, xs, ys, z1s, z2s, n_pts)
}

sd_mat <- function(mat) {
    .Call(`_mousetrap_sd_mat`, mat)
}

moments_mat <- function(mat) {
    .Call(`_mousetrap_moments_mat`, mat)
}

scale_rows <- function(mat, center = TRUE, scale = TRUE) {
    .Call(`_mousetrap_scale_rows`, mat, center, scale)
}

trans_rows <- function(mat, scale, center = TRUE) {
    .Call(`_mousetrap_trans_rows`, mat, scale, center)
}

scale_mat <- function(mat, center = TRUE, scale = TRUE) {
    .Call(`_mousetrap_scale_mat`, mat, center, scale)
}

trans_mat <- function(mat, scale, center = TRUE) {
    .Call(`_mousetrap_trans_mat`, mat, scale, center)
}

tab <- function(v1, v2) {
    .Call(`_mousetrap_tab`, v1, v2)
}

tab_sum <- function(v1, v2, a) {
    .Call(`_mousetrap_tab_sum`, v1, v2, a)
}

tab_mean <- function(v1, v2, a) {
    .Call(`_mousetrap_tab_mean`, v1, v2, a)
}

trajAlign <- function(xs, ys, start, end, coordinates) {
    .Call(`_mousetrap_trajAlign`, xs, ys, start, end, coordinates)
}

trajAlign3d <- function(xs, ys, zs, start, end, coordinates) {
    .Call(`_mousetrap_trajAlign3d`, xs, ys, zs, start, end, coordinates)
}
PascalKieslich/mousetrap documentation built on Jan. 31, 2024, 9:26 p.m.