data(NCI60_4arrays)
  mcoin <- mcia(NCI60_4arrays)
  plot.mcia(mcoin, sample.lab=FALSE, df.col=4:7)
  plotVar(mcoin, var=NA, bg.var.col=1:4,  var.lab=TRUE)
  plotVar(mcoin, var=c("SPOPL", "CAPN2", "SNX8"), 
          df=1:4, var.lab=TRUE, var.col=c("red", "green", "blue"))
Run the code above in your browser using DataLab