# NOT RUN {
library("colorspace")
library("wavemulcor")
library("W2CWM2C")
data(dataexample)
#:: Figure 7 (Polanco-Martinez and Fernandez-Macho (2014).
#:: Transform log returns using: ln(t + deltat) - ln(t).
#:: The application in this example uses stock market
#:: indexes (it is common to use log returns instead of
#:: raw data). Other kinds of pre-processing data are possible.
dataexample <- dataexample[-1] #remove the dates!
lrdatex <- apply(log(dataexample), 2, diff)
inputDATA <- ts(lrdatex, start=1, frequency=1)
Wname <- "la8"
J <- 8
lmax <- 30
compWCC <- WMCC(inputDATA, Wname, J, lmax, device="screen", NULL,
NULL, NULL, NULL, NULL)
# }
Run the code above in your browser using DataLab