# NOT RUN {
x = seq(-pi, pi, len = 200)
y1 = sin(8 * x) + sin(32 * x)
y2 = sin(8 * (x + pi/8)) + sin(32 * x)
matplot(x, cbind(y1, y2), type = "l", lty = 1)
w = mvcwt(x, cbind(y1, y2))
plot(w, var = 1:2, scale = 2^seq(log2(min(w$y)), log2(max(w$y)), len = 5))
mr = wmr(w, smoothing = 2)
image(mr, reset.par = FALSE)
contour(mr, levels = c(0.01, 0.05, 0.1, 0.25, 0.5, 0.75, 0.9, 0.95, 0.99), add = TRUE)
# }
Run the code above in your browser using DataLab