combine {tripEstimation}R Documentation

~~function to do ... ~~

Description

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

Usage

combine(pimgs, subset = 1:length(pimgs))

Arguments

pimgs ~~Describe pimgs here~~
subset ~~Describe subset 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 (pimgs, subset = 1:length(pimgs)) 
{
    bad <- unlist(lapply(pimgs, function(x) is.null(x$image)))[subset]
    subset <- subset[!bad]
    res <- as.image.pimg(pimgs[[subset[1]]])
    if (length(subset) == 1) 
        return(res)
    for (i in subset[-1]) {
        img <- pimgs[[i]]
        Xpos <- img$offset[1]
        Ypos <- img$offset[2]
        Xind <- Xpos:(Xpos + dim(img$image)[1] - 1)
        Yind <- Ypos:(Ypos + dim(img$image)[2] - 1)
        res$z[Xind, Yind] <- res$z[Xind, Yind] + img$image
    }
    res
  }

[Package tripEstimation version 0.0-24 Index]