Nothing
#' Clip time vector.
#'
#' The function clips a time vector based on provided limits.
#'
#' @param time \code{POSIXct} vector, time vector.
#'
#' @param limits \code{POSIXct} vector of length two, time limits for
#' clipping.
#'
#' @return \code{POSIXct} vector, clipped time vector.
#'
#' @author Michael Dietze
#' @keywords eseis
#' @examples
#'
#' ## load example data
#' data(rockfall)
#'
#' ## define limits to clip to
#' limits <- c(min(rockfall_t) + 10,
#' max(rockfall_t) - 10)
#'
#' ## clip data set
#' rockfall_t_clip <- time_clip(time = rockfall_t,
#' limits = limits)
#'
#' ## compare time ranges
#' range(rockfall_t)
#' range(rockfall_t_clip)
#'
#' @export time_clip
#'
time_clip <- function(
time,
limits
) {
## check data structure
if(class(time)[1] == "list") {
## apply function to list
data_out <- lapply(X = time,
FUN = eseis::time_clip,
limits = limits)
## return output
return(data_out)
} else {
## clip signal
data_out <- time[time >= limits[1] & time <= limits[2]]
## return output
return(data_out)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.