Learn R Programming

gasper (version 1.1.3)

HPFVN: High Pass Filter Von Neumann Estimator.

Description

Graph extension of the Von Neummann variance estimator using finest scale coefficients.

Usage

HPFVN(wcn, evalues, b)

Arguments

wcn

Noisy wavelet coefficients.

evalues

Laplacian spectrum.

b

Parameter that control the number of scales.

References

von Neumann, J. (1941). Distribution of the ratio of the mean square successive difference to the variance. Ann. Math. Statistics, 35(3), 433--451.

de Loynes, B., Navarro, F., Olivier, B. (2021). Data-driven thresholding in denoising with Spectral Graph Wavelet Transform. Journal of Computational and Applied Mathematics, Vol. 389.

See Also

GVN

Examples

Run this code
data(grid1)
A <- grid1$sA
L <- laplacian_mat(A)
x <- grid1$xy[ ,1]
n <- length(x)
val1 <- eigensort(L)
evalues <- val1$evalues
evectors <- val1$evectors
f <- sin(x)
sigma <- 0.1
noise <- rnorm(n, sd = sigma)
y <- f + noise
b <- 2
wcn <- forward_sgwt(y, evalues, evectors, b=b)
sigma^2
HPFVN(wcn, evalues, b)

Run the code above in your browser using DataLab