powered by
This function plots the credible bounds of the denoised signal.
PlotFun(data, p = c(0.025, 0.5, 0.975), band.type = "pointwise", main = "", col = "blue", type = "l", ylab = "", xlab = "", ylim = NULL)
A plot.
Matrix of posterior samples.
Vector with the lower, center and upper quantile.
Type of credible intervals. The options are: pointwise, gloabl or global.
pointwise
gloabl
global
The main title of the plot.
The color of the point estimate.
The type of line of the point estimate.
The label of the y-axis.
The label of the x-axis.
The range of the y-axis.
data <- wavethresh::DJ.EX(n = 512, noisy = TRUE, rsnr = 5)$doppler W <- DWT(data) ans <- Denoise(W) denoised.data <- InvDWT(ans) PlotFun(denoised.data) PlotFun(denoised.data, band.type = "both")
Run the code above in your browser using DataLab