hyperSpec (version 0.98-20140523)

merge: Merge hyperSpec objects

Description

Merges two hyperSpec objects and cbinds their spectra matrices.

Usage

## S3 method for class 'hyperSpec,hyperSpec':
merge(x, y, ...,
    short = "merge", user = NULL, date = NULL)

Arguments

x

a hyperSpec object

y

a hyperSpec object

...

handed to merge.data.frame

short,user,date

handed to logentry

Details

After merging, the spectra matrix can contain duplicates, and is not ordered according to the wavelength.

If the wavelength axis should be ordered, use orderwl.

See Also

merge.

collapse combines hyperSpec objects that do not share the wavelength axis. rbind, and cbind for combining hyperSpec objects that.

Examples

merge (chondro [1:10,, 600], chondro [5:15,, 600], by = c("x", "y"))$.
tmp <- merge (chondro [1:10,, 610], chondro [5:15,, 610],
              by = c("x", "y"), all = TRUE)
tmp$.
wl (tmp)
stopifnot (nrow (merge (chondro [1:10], chondro [5:15], all = TRUE)) == 15)
 stopifnot (nrow (merge (chondro [1:10], chondro [5:15])) == 6)

## remove duplicated wavelengths:
approxfun <- function (y, wl, new.wl){
  approx (wl, y, new.wl, method = "constant",
          ties = function (x) mean (x, na.rm = TRUE)
          )$y
}

merged <- merge (chondro [1:7,, 610 ~ 620], chondro [5:10,, 615 ~ 625], all = TRUE)
merged$.
merged <- apply (merged, 1, approxfun,
                 wl = wl (merged), new.wl = unique (wl (merged)),
                 new.wavelength = "new.wl")
merged$.