# NOT RUN {
## Figure 5 (Polanco-Martinez and Fernandez-Macho 2014)
library("colorspace")
library("waveslim")
library("W2CWM2C")
data(dataexample)
#:: Transforms to 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!
DAXCAC <- dataexample[,c(3,4)]
lrdatex <- apply(log(DAXCAC), 2, diff)
inputDATA <- ts(lrdatex, start=1, frequency=1)
Wname <- "la8"
J <- 8
lmax <- 30
compWCC <- WCC(inputDATA, Wname, J, lmax, device="screen", NULL,
NULL, NULL, NULL, NULL)
# }
Run the code above in your browser using DataLab