unzipper {tripEstimation} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
unzipper(px)
px |
~~Describe px here~~ |
~~ If necessary, more details than the description above ~~
~~who you are~~
~put references to the literature/web site here ~
##---- 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 }