# chk_compatible_lengths
a <- integer(0)
b <- numeric(0)
chk_compatible_lengths(a, b)
a <- 1
b <- 2
chk_compatible_lengths(a, b)
a <- 1:3
b <- 1:3
chk_compatible_lengths(a, b)
b <- 1
chk_compatible_lengths(a, b)
b <- 1:2
try(chk_compatible_lengths(a, b))
b <- 1:6
try(chk_compatible_lengths(a, b))
# vld_compatible_lengths
a <- integer(0)
b <- numeric(0)
vld_compatible_lengths(a, b)
a <- 1
b <- 2
vld_compatible_lengths(a, b)
a <- 1:3
b <- 1:3
vld_compatible_lengths(a, b)
b <- 1
vld_compatible_lengths(a, b)
b <- 1:2
vld_compatible_lengths(a, b)
b <- 1:6
vld_compatible_lengths(a, b)
Run the code above in your browser using DataLab