# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
lorentz <- function(x, x0, s, a = 0) {
.Call('_Rnmr1D_lorentz', PACKAGE = 'Rnmr1D', x, x0, s, a)
}
gauss <- function(x, x0, s, a = 0) {
.Call('_Rnmr1D_gauss', PACKAGE = 'Rnmr1D', x, x0, s, a)
}
pvoigt <- function(x, x0, s, a = 0, eta = 0.5) {
.Call('_Rnmr1D_pvoigt', PACKAGE = 'Rnmr1D', x, x0, s, a, eta)
}
C_fSavGol <- function(s, m, nl, nr) {
.Call('_Rnmr1D_C_fSavGol', PACKAGE = 'Rnmr1D', s, m, nl, nr)
}
C_FilterbyWT <- function(s, wavelet, threshold = 0.5, verbose = 0L) {
.Call('_Rnmr1D_C_FilterbyWT', PACKAGE = 'Rnmr1D', s, wavelet, threshold, verbose)
}
C_FilterbyThreshold <- function(s, wavelet, threshold = 0L, verbose = 0L) {
.Call('_Rnmr1D_C_FilterbyThreshold', PACKAGE = 'Rnmr1D', s, wavelet, threshold, verbose)
}
C_Lorentz <- function(ppm, amp, x0, sigma, a = 0) {
.Call('_Rnmr1D_C_Lorentz', PACKAGE = 'Rnmr1D', ppm, amp, x0, sigma, a)
}
C_PVoigt <- function(ppm, amp, x0, sigma, a = 0, eta = 0.5) {
.Call('_Rnmr1D_C_PVoigt', PACKAGE = 'Rnmr1D', ppm, amp, x0, sigma, a, eta)
}
C_OneVoigt <- function(X, Y, par) {
.Call('_Rnmr1D_C_OneVoigt', PACKAGE = 'Rnmr1D', X, Y, par)
}
C_peakFinder <- function(spec, ppmrange, filt = NULL, params = NULL, verbose = 1L) {
.Call('_Rnmr1D_C_peakFinder', PACKAGE = 'Rnmr1D', spec, ppmrange, filt, params, verbose)
}
C_peakOptimize <- function(spec, ppmrange, params, verbose = 1L) {
.Call('_Rnmr1D_C_peakOptimize', PACKAGE = 'Rnmr1D', spec, ppmrange, params, verbose)
}
C_peakFiltering <- function(spec, peaks, ratioPN) {
.Call('_Rnmr1D_C_peakFiltering', PACKAGE = 'Rnmr1D', spec, peaks, ratioPN)
}
C_specModel <- function(spec, ppmrange, peaks) {
.Call('_Rnmr1D_C_specModel', PACKAGE = 'Rnmr1D', spec, ppmrange, peaks)
}
C_MyFuncTest2 <- function(spec, n1, n2) {
.Call('_Rnmr1D_C_MyFuncTest2', PACKAGE = 'Rnmr1D', spec, n1, n2)
}
SDL <- function(x, Sigma) {
.Call('_Rnmr1D_SDL', PACKAGE = 'Rnmr1D', x, Sigma)
}
C_write_pack <- function(x, pmin, pmax, ff) {
invisible(.Call('_Rnmr1D_C_write_pack', PACKAGE = 'Rnmr1D', x, pmin, pmax, ff))
}
C_read_pack <- function(ff) {
.Call('_Rnmr1D_C_read_pack', PACKAGE = 'Rnmr1D', ff)
}
C_GlobSeg <- function(v, dN, sig) {
.Call('_Rnmr1D_C_GlobSeg', PACKAGE = 'Rnmr1D', v, dN, sig)
}
lowpass1 <- function(x, alpha) {
.Call('_Rnmr1D_lowpass1', PACKAGE = 'Rnmr1D', x, alpha)
}
WinMoy <- function(v, n1, n2) {
.Call('_Rnmr1D_WinMoy', PACKAGE = 'Rnmr1D', v, n1, n2)
}
Smooth <- function(v, n) {
.Call('_Rnmr1D_Smooth', PACKAGE = 'Rnmr1D', v, n)
}
fitLines <- function(s, b, n1, n2) {
invisible(.Call('_Rnmr1D_fitLines', PACKAGE = 'Rnmr1D', s, b, n1, n2))
}
C_Estime_LB <- function(s, istart, iend, WS, NEIGH, sig) {
.Call('_Rnmr1D_C_Estime_LB', PACKAGE = 'Rnmr1D', s, istart, iend, WS, NEIGH, sig)
}
C_Estime_LB2 <- function(s, istart, iend, WS, NEIGH, sig) {
.Call('_Rnmr1D_C_Estime_LB2', PACKAGE = 'Rnmr1D', s, istart, iend, WS, NEIGH, sig)
}
C_noise_estimate <- function(x, n1, n2, flg) {
.Call('_Rnmr1D_C_noise_estimate', PACKAGE = 'Rnmr1D', x, n1, n2, flg)
}
C_spec_ref_interval <- function(x, istart, iend, v) {
.Call('_Rnmr1D_C_spec_ref_interval', PACKAGE = 'Rnmr1D', x, istart, iend, v)
}
C_spec_ref <- function(x, v) {
.Call('_Rnmr1D_C_spec_ref', PACKAGE = 'Rnmr1D', x, v)
}
C_MedianSpec <- function(x) {
.Call('_Rnmr1D_C_MedianSpec', PACKAGE = 'Rnmr1D', x)
}
C_Derive1 <- function(v) {
.Call('_Rnmr1D_C_Derive1', PACKAGE = 'Rnmr1D', v)
}
C_Derive <- function(x) {
.Call('_Rnmr1D_C_Derive', PACKAGE = 'Rnmr1D', x)
}
C_Integre <- function(x, istart, iend) {
.Call('_Rnmr1D_C_Integre', PACKAGE = 'Rnmr1D', x, istart, iend)
}
C_segment_shifts <- function(x, idx_vref, decal_max, istart, iend, v) {
.Call('_Rnmr1D_C_segment_shifts', PACKAGE = 'Rnmr1D', x, idx_vref, decal_max, istart, iend, v)
}
C_align_segment <- function(x, s, istart, iend, apodize, v) {
.Call('_Rnmr1D_C_align_segment', PACKAGE = 'Rnmr1D', x, s, istart, iend, apodize, v)
}
C_noise_estimation <- function(x, n1, n2) {
.Call('_Rnmr1D_C_noise_estimation', PACKAGE = 'Rnmr1D', x, n1, n2)
}
C_aibin_buckets <- function(x, b, v, l, n1, n2) {
.Call('_Rnmr1D_C_aibin_buckets', PACKAGE = 'Rnmr1D', x, b, v, l, n1, n2)
}
C_SDL_convolution <- function(x, y, sigma) {
.Call('_Rnmr1D_C_SDL_convolution', PACKAGE = 'Rnmr1D', x, y, sigma)
}
C_erva_buckets <- function(x, b, v, l, n1, n2) {
.Call('_Rnmr1D_C_erva_buckets', PACKAGE = 'Rnmr1D', x, b, v, l, n1, n2)
}
C_spectra_integrate <- function(x, istart, iend) {
.Call('_Rnmr1D_C_spectra_integrate', PACKAGE = 'Rnmr1D', x, istart, iend)
}
C_buckets_integrate <- function(x, b, mode) {
.Call('_Rnmr1D_C_buckets_integrate', PACKAGE = 'Rnmr1D', x, b, mode)
}
C_all_buckets_integrate <- function(x, b, mode) {
.Call('_Rnmr1D_C_all_buckets_integrate', PACKAGE = 'Rnmr1D', x, b, mode)
}
C_maxval_buckets <- function(x, b) {
.Call('_Rnmr1D_C_maxval_buckets', PACKAGE = 'Rnmr1D', x, b)
}
C_ppmIntMax_buckets <- function(x, b) {
.Call('_Rnmr1D_C_ppmIntMax_buckets', PACKAGE = 'Rnmr1D', x, b)
}
C_buckets_CSN_normalize <- function(b) {
.Call('_Rnmr1D_C_buckets_CSN_normalize', PACKAGE = 'Rnmr1D', b)
}
C_estime_sd <- function(x, cut) {
.Call('_Rnmr1D_C_estime_sd', PACKAGE = 'Rnmr1D', x, cut)
}
ajustBL <- function(x, flg) {
.Call('_Rnmr1D_ajustBL', PACKAGE = 'Rnmr1D', x, flg)
}
C_corr_spec_re <- function(l) {
.Call('_Rnmr1D_C_corr_spec_re', PACKAGE = 'Rnmr1D', l)
}
Fmin <- function(par, re, im, blphc, B, flg = 0L) {
.Call('_Rnmr1D_Fmin', PACKAGE = 'Rnmr1D', par, re, im, blphc, B, flg)
}
Fentropy <- function(par, re, im, blphc, neigh, B, Gamma) {
.Call('_Rnmr1D_Fentropy', PACKAGE = 'Rnmr1D', par, re, im, blphc, neigh, B, Gamma)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.