data(mass)
data(distance)
mi <- as.numeric(mass[, 1])
names(mi) <- rownames(mass)
mj <- mi
check_format_names(
vectors = list(mi = mi, mj = mj),
matrices = list(distance = distance),
check = "format_and_names"
)
Run the code above in your browser using DataLab