R/RcppExports.R

In uFTIR: Process and Analyze Agilent Cary 620 FTIR Microscope Images

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

cderivate_mat <- function(X, v) {
    .Call(`_uFTIR_cderivate_mat`, X, v)
}

cderivate_cube <- function(myCube, v) {
    .Call(`_uFTIR_cderivate_cube`, myCube, v)
}

cmosaic_clusterfind <- function(sam_match, clusters) {
    .Call(`_uFTIR_cmosaic_clusterfind`, sam_match, clusters)
}

cmosaic_compose <- function(file, xy_pos, xmax, ymax, zmax) {
    .Call(`_uFTIR_cmosaic_compose`, file, xy_pos, xmax, ymax, zmax)
}

csam_load <- function(filename) {
    .Call(`_uFTIR_csam_load`, filename)
}

csmooth_sam <- function(myCube, wind, bins, nslices) {
    .Call(`_uFTIR_csmooth_sam`, myCube, wind, bins, nslices)
}

mosaic_read_chunk <- function(filename, fpa, wl) {
    .Call(`_uFTIR_mosaic_read_chunk`, filename, fpa, wl)
}

mosaic_sam_write <- function(A, filename) {
    .Call(`_uFTIR_mosaic_sam_write`, A, filename)
}

read_cube <- function(x) {
    .Call(`_uFTIR_read_cube`, x)
}

sam_internal <- function(x, em) {
    .Call(`_uFTIR_sam_internal`, x, em)
}

sam_main <- function(myCube, em) {
    .Call(`_uFTIR_sam_main`, myCube, em)
}

sam_match <- function(myCube) {
    .Call(`_uFTIR_sam_match`, myCube)
}

ctile_sam <- function(myCube, em) {
    .Call(`_uFTIR_ctile_sam`, myCube, em)
}