# lynx is a time.series object
lynx_num.df <-
try_tibble(lynx,
col.names = c("year", "lynx"),
as.numeric = TRUE) # years -> as numeric
which(find_peaks(lynx_num.df$lynx, span = 5))
which(find_valleys(lynx_num.df$lynx, span = 5))
lynx_num.df[find_peaks(lynx_num.df$lynx, span = 5), ]
lynx_num.df[find_peaks(lynx_num.df$lynx, span = 51), ]
lynx_num.df[find_peaks(lynx_num.df$lynx, span = NULL), ]
lynx_num.df[find_peaks(lynx_num.df$lynx,
span = 15,
global.threshold = 2/3), ]
lynx_num.df[find_peaks(lynx_num.df$lynx,
span = 15,
global.threshold = I(4000)), ]
lynx_num.df[find_peaks(lynx_num.df$lynx,
span = 15,
local.threshold = 0.5), ]
Run the code above in your browser using DataLab