Nothing
# 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.