Description Usage Arguments Details Examples
View source: R/RcppExports.R View source: R/functions.R
Estimates the wavelet coefficients for the underlying signal of interest embedded in the noisy multichannel deconvolution model.
1 2 3 4  multiCoef(Y, G = directBlur(nrow(as.matrix(Y)), ncol(as.matrix(Y))),
alpha = rep(1, dim(as.matrix(Y))[2]),
resolution = resolutionMethod(detectBlur(G)), j0 = 3L, j1 = NA_integer_,
eta = NA_real_, deg = 3L)

Y 
An input signal either an n by m matrix containing the multichannel signal to be analysed or single vector of n elements for the single channel. In the multichannel case, each of the m columns represents a channel of n observations. 
G 
The input multichannel blur matrix/vector (needs to be the same dimension/length as the signal input which is a matrix or vector for the multichannel or single channel case respectively). This argument dictates the form of blur present in each of the channels. 
alpha 
A numeric vector, with m elements, specifying the level of long memory for the noise process within each channel of the form alpha = 2  2H, where H is the Hurst parameter. If alpha is a single element, that same element is repeated across all required channels. 
resolution 
A character string describing which resolution selection method is to be applied.
The default choice uses the detectBlur function to identify what type of blur matrix, G, is input and then maps that identification to the resolution type via a simple switch statement in the hidden 
j0 
The coarsest resolution level for the wavelet expansion. 
j1 
The finest resolution level for the wavelet expansion. If unspecified, the function will compute all thresholds up to the maximum possible resolution level at j1 = log2(n)  1. 
eta 
The smoothing parameter. The default level is 2√(α^*) where α^* is an optimal level depending on the type of blur. (see Kulik, Sapatinas and Wishart (2014) for details and justification) 
deg 
The degree of the auxiliary polynomial used in the Meyer wavelet. 
Returns an object of type waveletCoef which is a list including the following three objects
coef
a numeric vector of size n giving the estimated wavelet coefficients for the signal of interest
j0
an integer that specifies the initial coarse resolution for the inhomogeneous wavelet expansion.
deg
an integer that specifies the degree of the Meyer wavelet used in the estimation of the wavelet coefficients.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32  library(mwaved)
# Simulate the multichannel doppler signal.
m < 3
n < 2^10
signal < makeDoppler(n)
# Noise levels per channel
e < rnorm(m*n)
# Create Gamma blur
shape < seq(from = 0.5, to = 1, length = m)
scale < rep(0.25,m)
G < gammaBlur(n, shape = shape, scale = scale)
# Convolve the signal
X < blurSignal(signal, G)
# Create error with custom signal to noise ratio
SNR < c(10,15,20)
sigma < sigmaSNR(X, SNR)
if (requireNamespace("fracdiff", quietly = TRUE)) {
alpha < c(0.75, 0.8, 1)
} else {
alpha < rep(1, m)
}
E < multiNoise(n, sigma, alpha)
# Create noisy & blurred multichannel signal
Y < X + E
plot(signal, type='l', lty='dashed', main='dashed: True signal, solid: multichannel signals')
matlines(Y, lty = 1)
# Estimate the wavelet coefficients
estimatedCoefs < multiCoef(Y, G, alpha = alpha)
plot(estimatedCoefs)
# Compute true wavelet coefficients
trueCoefs < multiCoef(signal)
plot(trueCoefs)

Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.