unzipper {tripEstimation}R Documentation

~~function to do ... ~~

Description

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

Usage

unzipper(px)

Arguments

px ~~Describe px here~~

Details

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

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

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(px) {

## px is a list of pimg.lists
epoch <- ISOdatetime(1970, 1, 1, 0, 0, 0, tz = "GMT")
tms <- unlist(lapply(px, function(x) attr(x, "times"))) 

  tms <- 12*3600*(round(unclass(tms)/(12*3600))) + epoch

xb <- px[[1]]$xbound
yb <- px[[1]]$ybound
#unique.times <- unique(sort(unique(tms)) + epoch)

p <- pimg.list(tms, xb[1], xb[2], xb[3], yb[1], yb[2], yb[3])

l <- list()

for (ix in px) l <- c(l, ix)

for (ip in 1:length(l)) p[[ip]] <- l[[ip]]

names(p) <- names(tms)
p
#attr(l, "times") <- tms
## px is all the pimgs matching tms

  }

[Package tripEstimation version 0.0-24 Index]