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