knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(ProteomicsExamples)
data('protein_18_mix') peptides <- get_peptides(protein_18_mix) pp_matrix <- get_peptide_protein_matrix(peptides, protein_18_mix) plot_shared_peptides(summarise_peptides(pp_matrix))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.