Nothing
createColorVectorsByDesign <-
function(design_matrix,hsv=TRUE,offset=NULL){
if(hsv){
group_colors <- prettyGraphsHSVColorSelection(n.colors=ncol(design_matrix),offset=offset)
}else{
group_colors <- prettyGraphsColorSelection(n.colors=ncol(design_matrix),offset=offset)
}
rownames(group_colors)<-colnames(design_matrix)
arr.ind <- which(design_matrix==1,arr.ind=TRUE)
arr.ind <- arr.ind[order(arr.ind[,1]),]
observation_colors <- as.matrix(group_colors[arr.ind[,2],1])
rownames(observation_colors) <- rownames(design_matrix)
return(list(oc=observation_colors,gc=group_colors))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.