#Extract the spectral power of the 210 yr de Vries cycle from the Total Solar
#Irradiance data set of Steinhilber et al., (2012).
TSI_wt <-
analyze_wavelet(
data = TSI,
dj = 1/200,
lowerPeriod = 16,
upperPeriod = 8192,
verbose = FALSE,
omega_nr = 6
)
TSI_wt_pwr_de_Vries_cycle <- extract_power_stable(
wavelet = TSI_wt,
cycle = 210,
period_up = 1.2,
period_down = 0.8
)
Run the code above in your browser using DataLab