R/tsConvert.R

"ts.update" <- 
function(x)
{
  ## convert an old-style ts, cts, its, or rts time series to a
  ## timeSeries or signalSeries object
  orig.time.zone <- timeDateOptions(time.zone = "GMT")
  on.exit(timeDateOptions(orig.time.zone))
  val <- if(is.ts(x)) {
    parms <- tsp(x)
    oldClass(x) <- NULL
    tsp(x) <- NULL
    units <- attributes(parms)
    if(!is.null(units))
      units <- units$units
    if(is.null(units))
      units <- character(0)
    x <- asSeriesData(x)
    names(parms) = c("start", "end", "deltat")
    if(!length(parms[["start"]]))
      parms[["start"]] <- 0
    signalSeries(data = x, units.position = units,
                 from = parms["start"], by = parms["deltat"])
  }
  else stop("Unknown type of time series")
  if(inherits(positions(val), "timeDate"))
    positions(val) <- timeZoneConvert(positions(val),
                                      orig.time.zone$time.zone)
  val
}

Try the splusTimeSeries package in your browser

Any scripts or data that you put into this service are public.

splusTimeSeries documentation built on July 8, 2022, 1:06 a.m.