powered by
map functions to color coding
mapFunctionsColors(row1, col1, colors)
returns a character vector mapping colors to package names
character vector containing names of packages
character vector containing names of colors
if(interactive()){ colors<-c("darkmagenta","darkolivegreen","darkorange3","brown4","red","blue") load("data/x_m3.RData") colorMap<-mapFunctionsColors(x_m3[1,c(-1,-2)],x_m3[c(-1,-2),1],colors) }
Run the code above in your browser using DataLab