R/tslength.R

In thelinkan/tsl: Time series functions

#' Returns the length of a ts object
#'
#' @param series A ts object
#' @return The number of periods in the ts object.
#' @export

tslength <- function(series)
{
  if(is.ts(series)==FALSE)
  {
    stop("series has to be ts objects.")
  }
  if(frequency(series)!=12 && frequency(series)!=4 && frequency(series)!=2 && frequency(series)!=1)
  {
    stop("tslength only supports monthly, quarterly, semi annual and annual data right now")
  }
  startper <- start(series)
  endper <- end(series)
  freqp <- frequency(series)
  periods=(freqp-startper[2]+1)+(endper[1]-startper[1]-1)*freqp+endper[2]
}