# \donttest{
#Track the 405kyr eccentricity cycle in the magnetic susceptibility record
# of the Sullivan core of Pas et al., (2018)
mag_wt <- analyze_wavelet(data = mag,
dj = 1/100,
lowerPeriod = 0.1,
upperPeriod = 254,
verbose = FALSE,
omega_nr = 10)
#mag_track <- track_period_wavelet(astro_cycle = 405,
# wavelet=mag_wt,
# n.levels = 100,
# periodlab = "Period (metres)",
# x_lab = "depth (metres)"
# palette_name ="rainbow",
# color_brewer ="grDevices)
#load the mag_track_solution data set to get an example data set from which
#data points can be deleted
mag_track_corr <- delpts_tracked_period_wt(tracking_pts = mag_track_solution,
wavelet = mag_wt,
n.levels = 100,
periodlab = "Period (metres)",
x_lab = "depth (metres)",
palette_name ="rainbow",
color_brewer ="grDevices")
# }
Run the code above in your browser using DataLab