R/createX2matchY.R

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)))
}
joshuaulrich/tmp-ecfun documentation built on July 1, 2019, 12:20 a.m.