PlotFun {grove}

Function to plot the denoised signal

Description

This function plots the credible bounds of the denoised signal.

Usage

PlotFun(data, p = c(0.025, 0.5, 0.975), band.type = "pointwise",
  main = "", col = "blue", type = "l", ylab = "", xlab = "",
  ylim = NULL)

Arguments

data

Matrix of posterior samples.

p

Vector with the lower, center and upper quantile.

band.type

Type of credible intervals. The options are: pointwise, gloabl or global.

main

The main title of the plot.

col

The color of the point estimate.

type

The type of line of the point estimate.

ylab

The label of the y-axis.

xlab

The label of the x-axis.

ylim

The range of the y-axis.

Value

A plot.

Examples

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")