data(logReturnsRandDollar)
names(data)
# \donttest{
# The following example replicates some of the results of Table 6 in
# Carrion-i-Silvestres & Sanso (2023)
data(logReturnsRandDollar)
e <- whitening(data$rand.dollar)$e # pre-whitening
m <- micss(e)
print.micss(m)# }
Run the code above in your browser using DataLab