R/signalSeries.R

In spkaluzny/splusTimeSeries: Time Series from 'S-PLUS'

"signalSeries" <- 
function(data, positions., units, units.position, from = 1, by = 1)
{
  ## function to create a signalSeries object
  ## positions, if supplied, overrides from, to, by
  if(missing(positions.) && missing(data) && missing(units) &&
     missing( units.position) && missing(from) && missing(by))
    return(new("signalSeries"))
  if(!missing(positions.) && (length(positions.) != numRows(data)))
    stop("Positions and data lengths do not agree")
  ret <- new("signalSeries")
  ret@data <- asSeriesData(data)
  if(missing(positions.)) {
    len <- numRows(ret@data)
    ret@positions <- numericSequence(from = from, length. = len, by = by)
  }
  else {
    if(!is(positions., "positionsNumeric"))
      positions. <- as(positions., "numeric")
    ret@positions <- positions.
  }
  if(!missing(units))
    ret@units <- as(units, "character")
  if(!missing(units.position))
    ret@units.position <- as(units.position, "character")
  ret
}