Ecfun (version 0.3-2)

createX2matchY: Create X to match Y

Description

Return a default object of class index2class(max(classIndex(x), classIndex(y))) and length = length(y).

For example, suppose class(x) == 'numeric', for which classIndex = 4. If class(y) = 'integer', then an object of class 'numeric' is returned. However, if class(y) = 'character', then an object of class 'character' is returned.

Usage

createX2matchY(x, y)

Value

A vector of the same length as y whose class is

index2class(max(classIndex(x), classIndex(y))).

Arguments

x, y

objects of possibly different classes and lengths.

Author

Spencer Graves

See Also

interpPairs

Examples

##
## 1.  NULL 
## -
null <- createX2matchY(NULL, NULL)
# check 
stopifnot(
all.equal(null, NULL)
)
##
## 2.  logical 
##
lgcl3 <- createX2matchY(NULL, 
           c(FALSE, TRUE, FALSE))

# check 
stopifnot(
all.equal(lgcl3, logical(3))
)

##
## 3.  integer
##
int3 <- createX2matchY(integer(0), 
           c(FALSE, TRUE, FALSE))
# check 
stopifnot(
all.equal(int3, integer(3))
)

##
## 4.  list -> character
##
ch3 <- createX2matchY(integer(0), 
         list(a=1, b=2, c=3))
# check 
stopifnot(
all.equal(ch3, character(3))
)