R/pimage.R

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)

  }
nreid/mscr documentation built on May 19, 2019, 5:16 p.m.