Z2<-DiStatis(NCI60Selec,Scale=TRUE,Center=TRUE)
M<-Bootstrap(Z2)
if (interactive()) {
BootPlot(M)
}
Colores2<-c(rep(colors()[657],5),rep(colors()[637],6),rep(colors()[537],7),
rep(colors()[552],6),rep(colors()[57],10),rep(colors()[300],8),
rep(colors()[461],7),rep(colors()[450],2),rep(colors()[432],7))
Colores1<-c(rep("Breast",5),rep("CNS",6),rep("Colon",7),
rep("Leukemia",6),rep("Melanoma",10),rep("Lung",8),rep("Ovarian",7),
rep("Prostate",2),rep("Renal",7))
BootPlot(M,Points=FALSE,cex.lab=0.7,cex.axis=0.7,
las=1,xlimi=c(-0.003,0.002),ylimi=c(-0.005,0.007)
,legend=FALSE,col=Colores2)
legend("topleft",unique(Colores1),col=unique(Colores2),
bty="n",pch=16,cex=1)Run the code above in your browser using DataLab