if (FALSE) {
if(requireNamespace("venn") & requireNamespace("gower")) {
chips <- c('10YR 8/1', '2.5YR 3/6', '10YR 2/2')
names(chips) <- c("tan", "dark red", "dark brown")
colorMixtureVenn(chips)
colorMixtureVenn(chips, names = TRUE)
colorMixtureVenn(chips, w = c(1, 1, 1), names = TRUE)
colorMixtureVenn(chips, w = c(10, 5, 1), names = TRUE)
}
}
Run the code above in your browser using DataLab