Commit 09860411 authored by Holger Brandl's avatar Holger Brandl

cont. dba analysis for clusters

parent 89b15e70
......@@ -160,6 +160,9 @@ create_palette <- function(x, pal = 'Set1'){
ux <- sort(unique(x))
n <-length(ux)
if(n==0) return(c())
setNames(brewer.pal(name = pal, n = n)[1:n], ux)
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment