set.seed(1234)
.x <- c(rnorm(100, 2, 1), rnorm(100, 9, 1))
turning_point(.x = .x, .adjust = 1)
turning_point(.x = .x, .k = 2)
turning_point(.x = .x, .which = "minima")
turning_point(.x = .x, .which = "maxima")
turning_point(.x = .x, .return = "index")
Run the code above in your browser using DataLab