pimg.list {tripEstimation}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

pimg.list(times, xlim, ylim, img.dim, Z = TRUE)

Arguments

times ~~Describe times here~~
xlim ~~Describe xlim here~~
ylim ~~Describe ylim here~~
img.dim ~~Describe img.dim here~~
Z ~~Describe Z here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(times, xlim, ylim, img.dim, Z = TRUE) {

  #epoch <- ISOdatetime(1970, 1, 1, 0, 0, 0, tz = "GMT")
  #tm <- 12*3600*(round(unclass(times)/(12*3600))) + epoch
  tm <- times

  ## if these are Zs, then the times specify the X times
  n <- length(tm) - Z

  lst <- vector("list",length=n)
  for(i in 1:n) lst[[i]] <- pimg(xlim[1], xlim[2], img.dim[1], ylim[1], ylim[2], img.dim[2])
  
  if (Z) {
        Ztimes <- tm[-length(tm)] + diff(unclass(tm))/2
        attr(lst, "times") <- Ztimes
        attr(lst, "Xtimes") <- tm
  } else {
        attr(lst, "times") <- tm
  }
  attr(lst, "Z") <- Z
   
  class(lst) <- c("pimg.list", "list")
  lst
  }

[Package tripEstimation version 0.0-24 Index]