R/helper.R

In rBatt/fishyWarnings: How should management respond to warning signals of haddock collapse?

Defines functions detrend

Documented in detrend

#' Detrend
#' Detrend time series
#' @param x vector time series
#' @param time vector of time steps
#' 
#' @return detrended x
#' @export
detrend <- function(x, time=1:length(x)){
	stats::residuals(stats::lm(x~time))
}