1 | proteinBarPlot(protein.original, protein.fraction)
|
protein.original |
|
protein.fraction |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (protein.original, protein.fraction)
{
dev.new(width = 3.5, height = 5)
barplot(c(length(protein.original), length(protein.fraction)),
names = c("Original", "Re-Fraction"), ylab = "Number of Deterministic Protein Identifications",
col = c("darkblue", "red"), border = NA)
text(0.7, length(protein.original)/2, length(protein.original),
cex = 1, col = "white")
text(1.9, length(protein.fraction)/2, length(protein.fraction),
cex = 1, col = "white")
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.