delpts_tracked_period_wt {WaverideR} | R Documentation |
Remove tracking points which were tracked in a wavelet spectra
Description
Interactively select points for deletion
With the track_period_wavelet
function it is possible to track points in a wavelet spectra,
however errors can be made and as such it is possible to delete these points with the delpts_tracked_period_wt
function.
This function allows one to select points for deletion.
#'
Usage
delpts_tracked_period_wt(
tracking_pts = NULL,
wavelet = NULL,
n.levels = 100,
periodlab = "Period (metres)",
x_lab = "depth (metres)",
palette_name = "rainbow",
color_brewer = "grDevices"
)
Arguments
tracking_pts |
Points tracked using the |
wavelet |
Wavelet object created using the |
n.levels |
Number of color levels |
periodlab |
label for the y-axis |
x_lab |
label for the x-axis |
palette_name |
Name of the color palette which is used for plotting.
The color palettes than can be chosen depends on which the R package is specified in
the color_brewer parameter. The included R packages from which palettes can be chosen
from are; the 'RColorBrewer', 'grDevices', 'ColorRamps' and 'Viridis' R packages.
There are many options to choose from so please
read the documentation of these packages |
color_brewer |
Name of the R package from which the color palette is chosen from.
The included R packages from which palettes can be chosen
are; the RColorBrewer, grDevices, ColorRamps and Viridis R packages.
There are many options to choose from so please
read the documentation of these packages. " |
Value
The results of the deletion of the tracking points is a matrix with 3 columns. The first column is depth/time The second column is the period of the tracked cycle The third column is the sedimentation rate based on the duration (in time) of the tracked cycle
Examples
#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")