R/tst.setDate.R

In AdamElderfield/tst_package:

#' Set the sample in a tst object.
#' 
#' Set the sample for which the tst object is to examined over.
#' 
#' @param model an tst object.
#' @param init intial date.
#' @param end end date.
#' @return a tst object.
#' 


tst.setDate<-function(model=stop("Need a model"),init=stop("Need a start date"),end=stop("Need an end date"), f =stop("Need a frequency")){
  
  model$time<-seq(as.Date(init),as.Date(end), by = f)
  
  return(model)
}