# NOT RUN {
set1 <- "HSV"
set2 <- set3 <- set4 <- c("HSV", "FCB")
midentical(set1, set2)
midentical(list(set1, set2))
midentical(set2, set3, set4)
midentical(list(set2, set3, set4))
## other options passed to identical
midentical(0, -0, +0, num.eq=FALSE)
midentical(0, -0, +0, num.eq=TRUE)
# }
Run the code above in your browser using DataLab