# NOT RUN {
data(count)
count.img=plotimage(mat=count,lim=c(0,5000))
data(df.scaled)
resPCA=pca(data=df.scaled[,-1], zone="zone",pixel="pixel")
couleurs=find.colors(rownames(resPCA$IndivCoord))
# }
# NOT RUN {
plotpca(resPCA)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab