# NOT RUN {
# We need to match the dimnames of the translated datasets, but we have two
# extra specimens in data.1_t
# }
# NOT RUN {
length(dimnames(data.1_t)[[3]]) # n=12
length(dimnames(data.2_t)[[3]]) # n=10
matched <- match.datasets(data.1_t, data.2_t)
# When we matched the arrays, only matrices from specimens present in both
# datasets will be kept
length(dimnames(matched$matched1)[[3]]) # n=10
length(dimnames(matched$matched2)[[3]]) # n=10
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab