# NOT RUN {
#####################################################################
#:: Figure 1 D (Polanco-Mart<U+00ED>nez et al. (2018), (mimeo)).
#####################################################################
library("BINCOR")
#####################################################################
#:: Loading the time series under analysis: example 1 (ENSO vs. NHSST)
#####################################################################
data(ENSO)
data(NHSST)
#####################################################################
# Testing our bin_cor function
#####################################################################
bincor.tmp <- bin_cor(ENSO.dat, NHSST.dat, FLAGTAU=3, "output_ENSO_NHSST.tmp")
binnedts <- bincor.tmp$Binned_time_series
# }
Run the code above in your browser using DataLab