#hist(count, main=c("Distribution of the number of injections in which", "a peptide-mz was quantified"), xlab="Number of injections", nclass=nbsample, border="darkblue", ylab="Number of peptides-mz")
#par(mar=c(6,4,2,5))
#plot(nb.pepz.lost~seq(0,100, by=5), type="b", ylab="Number of peptides-mz lost", xlab=c("% of NA tolerated per peptide-mz"), col="red")