pimg.list {tripEstimation} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
pimg.list(times, xlim, ylim, img.dim, Z = TRUE)
times |
~~Describe times here~~ |
xlim |
~~Describe xlim here~~ |
ylim |
~~Describe ylim here~~ |
img.dim |
~~Describe img.dim here~~ |
Z |
~~Describe Z here~~ |
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~Make other sections like Warning with section{Warning }{....} ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help
, ~~~
##---- 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 }