R/RcppExports.R

In interp: Interpolation Methods

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

BiLinear <- function(x, y, z, x0, y0) {
    .Call('_interp_BiLinear', PACKAGE = 'interp', x, y, z, x0, y0)
}

aSpline <- function(x, y, xout, method = "improved", degree = 3L) {
    .Call('_interp_aSpline', PACKAGE = 'interp', x, y, xout, method, degree)
}

circum <- function(x, y) {
    .Call('_interp_circum', PACKAGE = 'interp', x, y)
}

ConvexHull <- function(x, y) {
    .Call('_interp_ConvexHull', PACKAGE = 'interp', x, y)
}

interpDeltri <- function(x, y, zD, t, input = "points", output = "grid") {
    .Call('_interp_interpDeltri', PACKAGE = 'interp', x, y, zD, t, input, output)
}

interpShull <- function(x, y, xD, yD, zD, linear = TRUE, input = "points", output = "grid", kernel = "gaussian", h = as.numeric( c(0.0)), solver = "QR", degree = 3L, baryweight = TRUE, autodegree = FALSE, adtol = 1E-6, smoothpde = FALSE, akimaweight = TRUE, nweight = 25L) {
    .Call('_interp_interpShull', PACKAGE = 'interp', x, y, xD, yD, zD, linear, input, output, kernel, h, solver, degree, baryweight, autodegree, adtol, smoothpde, akimaweight, nweight)
}

locpoly.partderiv.grid <- function(x, y, xD, yD, zD, kernel = "gaussian", h = as.numeric( c(0.25,0.25)), solver = "QR", degree = 3L, smoothpde = FALSE, akimaweight = FALSE, nweight = 25L) {
    .Call('_interp_partDerivGrid', PACKAGE = 'interp', x, y, xD, yD, zD, kernel, h, solver, degree, smoothpde, akimaweight, nweight)
}

locpoly.partderiv.points <- function(x, y, xD, yD, zD, kernel = "gaussian", h = as.numeric( c(0.25,0.25)), solver = "QR", degree = 3L, smoothpde = FALSE, akimaweight = FALSE, nweight = 25L) {
    .Call('_interp_partDerivPoints', PACKAGE = 'interp', x, y, xD, yD, zD, kernel, h, solver, degree, smoothpde, akimaweight, nweight)
}

nearest.neighbours <- function(x, y) {
    .Call('_interp_nearestNeighbours', PACKAGE = 'interp', x, y)
}

shull.deltri <- function(x, y, jitter = FALSE) {
    .Call('_interp_shullDeltri', PACKAGE = 'interp', x, y, jitter)
}

triFind <- function(nT, xT, yT, i1, i2, i3, x, y) {
    .Call('_interp_triFind', PACKAGE = 'interp', nT, xT, yT, i1, i2, i3, x, y)
}

left <- function(x1, y1, x2, y2, x0, y0, eps = 1E-16) {
    .Call('_interp_left', PACKAGE = 'interp', x1, y1, x2, y2, x0, y0, eps)
}

on <- function(x1, y1, x2, y2, x0, y0, eps = 1E-16) {
    .Call('_interp_on', PACKAGE = 'interp', x1, y1, x2, y2, x0, y0, eps)
}

inHull <- function(triObj, x, y, eps = 1E-16) {
    .Call('_interp_inHull', PACKAGE = 'interp', triObj, x, y, eps)
}

onHull <- function(triObj, x, y, eps = 1E-16) {
    .Call('_interp_onHull', PACKAGE = 'interp', triObj, x, y, eps)
}