R/createX2matchY.R

Defines functions createX2matchY

Documented in createX2matchY

createX2matchY <- function(x, y){
  cix <- classIndex(x)
  ciy <- classIndex(y)
  ciz <- max(cix, ciy)
  if(ciz<2) return(NULL)
  chz <- index2class(ciz)
  do.call(chz, list(length(y)))
}

Try the Ecfun package in your browser

Any scripts or data that you put into this service are public.

Ecfun documentation built on May 2, 2019, 6:53 p.m.