R/RcppExports.R

Defines functions trim_ts do_trap do_epic_time_to_ymdhms do_ldc_sontek_adp do_sfm_enu do_runlm do_oce_filter do_oce_convolve do_oceApprox do_matrix_smooth do_ldc_rdi_in_file do_ldc_ad2cp_in_file do_landsat_numeric_to_bytes do_landsat_transpose_flip do_interp_barnes do_gradient do_get_bit do_geod_xy_inverse do_geod_xy do_geoddist do_geoddist_alongpath do_fill_gap_1d do_biosonics_ping do_curl2 do_curl1 bilinearInterp do_approx3d do_amsr_composite do_amsr_average do_adv_vector_time do_ad2cp_ahrs

Documented in bilinearInterp

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

do_ad2cp_ahrs <- function(v, ahrs) {
    .Call(`_oce_do_ad2cp_ahrs`, v, ahrs)
}

do_adv_vector_time <- function(vvdStart, vsdStart, vsdTime, vvdhStart, vvdhTime, n, f) {
    .Call(`_oce_do_adv_vector_time`, vvdStart, vsdStart, vsdTime, vvdhStart, vvdhTime, n, f)
}

do_amsr_average <- function(a, b) {
    .Call(`_oce_do_amsr_average`, a, b)
}

do_amsr_composite <- function(a, dim) {
    .Call(`_oce_do_amsr_composite`, a, dim)
}

do_approx3d <- function(x, y, z, f, xout, yout, zout) {
    .Call(`_oce_do_approx3d`, x, y, z, f, xout, yout, zout)
}

#' Bilinear Interpolation Within a Grid
#'
#' This is used by \code{\link{topoInterpolate}}.
#'
#' @param x vector of x values at which to interpolate
#' @param y vector of y values at which to interpolate
#' @param gx vector of x values for the grid
#' @param gy vector of y values for the grid
#' @param g matrix of the grid values
#'
#' @return vector of interpolated values
bilinearInterp <- function(x, y, gx, gy, g) {
    .Call(`_oce_bilinearInterp`, x, y, gx, gy, g)
}

do_curl1 <- function(u, v, x, y, geographical) {
    .Call(`_oce_do_curl1`, u, v, x, y, geographical)
}

do_curl2 <- function(u, v, x, y, geographical) {
    .Call(`_oce_do_curl2`, u, v, x, y, geographical)
}

do_biosonics_ping <- function(bytes, Rspp, Rns, Rtype) {
    .Call(`_oce_do_biosonics_ping`, bytes, Rspp, Rns, Rtype)
}

do_fill_gap_1d <- function(x, rule) {
    .Call(`_oce_do_fill_gap_1d`, x, rule)
}

do_geoddist_alongpath <- function(lon, lat, a, f) {
    .Call(`_oce_do_geoddist_alongpath`, lon, lat, a, f)
}

do_geoddist <- function(lon1, lat1, lon2, lat2, a, f) {
    .Call(`_oce_do_geoddist`, lon1, lat1, lon2, lat2, a, f)
}

do_geod_xy <- function(lon, lat, lonr, latr, a, f) {
    .Call(`_oce_do_geod_xy`, lon, lat, lonr, latr, a, f)
}

do_geod_xy_inverse <- function(x, y, lonr, latr, a, f) {
    .Call(`_oce_do_geod_xy_inverse`, x, y, lonr, latr, a, f)
}

do_get_bit <- function(buf, bit) {
    .Call(`_oce_do_get_bit`, buf, bit)
}

do_gradient <- function(m, x, y) {
    .Call(`_oce_do_gradient`, m, x, y)
}

do_interp_barnes <- function(x, y, z, w, xg, yg, xr, yr, gamma, iterations) {
    .Call(`_oce_do_interp_barnes`, x, y, z, w, xg, yg, xr, yr, gamma, iterations)
}

do_landsat_transpose_flip <- function(m) {
    .Call(`_oce_do_landsat_transpose_flip`, m)
}

do_landsat_numeric_to_bytes <- function(m, bits) {
    .Call(`_oce_do_landsat_numeric_to_bytes`, m, bits)
}

do_ldc_ad2cp_in_file <- function(filename, from, to, by, DEBUG) {
    .Call(`_oce_do_ldc_ad2cp_in_file`, filename, from, to, by, DEBUG)
}

do_ldc_rdi_in_file <- function(filename, from, to, by, mode, debug) {
    .Call(`_oce_do_ldc_rdi_in_file`, filename, from, to, by, mode, debug)
}

do_matrix_smooth <- function(mat) {
    .Call(`_oce_do_matrix_smooth`, mat)
}

do_oceApprox <- function(x, y, xout, method) {
    .Call(`_oce_do_oceApprox`, x, y, xout, method)
}

do_oce_convolve <- function(x, f, end) {
    .Call(`_oce_do_oce_convolve`, x, f, end)
}

do_oce_filter <- function(x, a, b) {
    .Call(`_oce_do_oce_filter`, x, a, b)
}

do_runlm <- function(x, y, xout, window, L) {
    .Call(`_oce_do_runlm`, x, y, xout, window, L)
}

do_sfm_enu <- function(heading, pitch, roll, starboard, forward, mast) {
    .Call(`_oce_do_sfm_enu`, heading, pitch, roll, starboard, forward, mast)
}

do_ldc_sontek_adp <- function(buf, have_ctd, have_gps, have_bottom_track, pcadp, max) {
    .Call(`_oce_do_ldc_sontek_adp`, buf, have_ctd, have_gps, have_bottom_track, pcadp, max)
}

do_epic_time_to_ymdhms <- function(julianDay, millisecond) {
    .Call(`_oce_do_epic_time_to_ymdhms`, julianDay, millisecond)
}

do_trap <- function(x, y, type) {
    .Call(`_oce_do_trap`, x, y, type)
}

trim_ts <- function(x, xlim, extra) {
    .Call(`_oce_trim_ts`, x, xlim, extra)
}

Try the oce package in your browser

Any scripts or data that you put into this service are public.

oce documentation built on March 28, 2021, 9:09 a.m.