|
Essential Wavelets for Statistical Applications and Data Analysis R.T. Ogden, University of South Carolina 0-8176-3864-4 * 1996 * $40.00 * Hardcover * 285 pages * 40 Illustrations |
Fig7.3n <- function()
{
# postscript(file = "Fig7.3.ps", horiz = F, height = 7, width = 4.5)
par(mfcol = c(3, 2), mar = c(2, 2, 2, 1), mgp = c(5, 0.4, 0))
rs <- c(57, 14, 55, 51, 30, 0, 53, 44, 34, 53, 49, 2)
x <- (1:128)/128
f1 <- 2 * sin(2 * pi * x)
f2 <- c(rep(0, 32), rep(4, 64), rep(0, 32))
.Random.seed <- rs
y1 <- f1 + rnorm(128)
y1wd <- wd(y1, filter.number = 5)
plot(x, y1, cex = 0.55)
lines(x, wr(threshold(y1wd, policy = "manual", type = "hard", levels =
0:6, value = 1.75)))
mtext("Threshold = 1.75", side = 3, line = 0.1, cex = 0.6)
plot(x, y1, cex = 0.55)
lines(x, wr(threshold(y1wd, policy = "manual", type = "hard", levels =
0:6, value = 2.75)))
mtext("Threshold = 2.75", side = 3, line = 0.1, cex = 0.6)
plot(x, y1, cex = 0.55)
lines(x, wr(threshold(y1wd, policy = "manual", type = "hard", levels =
0:6, value = 3.75)))
mtext("Threshold = 3.75", side = 3, line = 0.1, cex = 0.6)
.Random.seed <- rs
y2 <- f2 + rnorm(128)
y2wd <- wd(y2, filter.number = 5)
plot(x, y2, cex = 0.55)
lines(x, wr(threshold(y2wd, policy = "manual", type = "hard", levels =
0:6, value = 1.75)))
mtext("Threshold = 1.75", side = 3, line = 0.1, cex = 0.6)
plot(x, y2, cex = 0.55)
lines(x, wr(threshold(y2wd, policy = "manual", type = "hard", levels =
0:6, value = 2.75)))
mtext("Threshold = 2.75", side = 3, line = 0.1, cex = 0.6)
plot(x, y2, cex = 0.55)
lines(x, wr(threshold(y2wd, policy = "manual", type = "hard", levels =
0:6, value = 3.75)))
mtext("Threshold = 3.75", side = 3, line = 0.1, cex = 0.6)
# graphics.off()
NULL
}