# NOT RUN {
A <- LETTERS[1:5]
B <- LETTERS[1:5]
C <- LETTERS[1:5]
D <- LETTERS[1:5]
E <- factor(LETTERS[1:5])
# all ok
AllIdentical(A, B, C, D)
# at least one odd man
AllIdentical(A, B, C, D, E)
# }
Run the code above in your browser using DataLab