pimage<-function(x,pop=NULL,slo=NULL,col=c("yellow","green","blue")){ x<-x[,-1] if(!is.null(pop)){ spo<-grep(pop,colnames(x)) x<-x[,spo] } if(!is.null(slo)){x<-x[slo,]} image(x,col=col) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.