# \donttest{
#Use the grey_track example points to complete the tracking of the
# precession cycle in the wavelet spectra of the grey scale data set
# of Zeeden et al., (2013).
grey_wt <-
analyze_wavelet(
data = grey,
dj = 1/200,
lowerPeriod = 0.02,
upperPeriod = 256,
verbose = FALSE,
omega_nr = 8
)
#The ~22kyr precession cycle is between 0.25 and 1m The grey_track data
#set is a pre-loaded uncompleted tracking of the precession cycle
#grey_track <- track_period_wavelet(
#astro_cycle = 22,
#wavelet = NULL,
#n.levels = 100,
#periodlab = "Period (meters)",
#x_lab = "depth (meters)"
#)
grey_track <- completed_series(
wavelet = grey_wt,
tracked_curve = grey_track,
period_up = 1.25,
period_down = 0.75,
extrapolate = TRUE,
genplot = FALSE,
keep_editable=FALSE
)
# }
Run the code above in your browser using DataLab