# NOT RUN {
# Load libraries
library(dplyr)
library(stringr)
library(ggplot2)
library(tibble)
# Generate data
data <- tibble::tibble(
"traceR_mod.peptides" = c("AACLLPK",
"ALTDM(UniMod:35)PQM(UniMod:35)R",
"ALTDM(DummyModification)PQMK",
"ALTDM(UniMod:35)PQM(UniMod:35)R",
"ALTDM(DummyModification)PQMK"),
"traceR_mod.peptides_unknownMods" = c(FALSE, FALSE, TRUE, FALSE, TRUE),
"traceR_precursor" = c("AACLLPK2",
"ALTDM(UniMod:35)PQM(UniMod:35)R2",
"ALTDM(DummyModification)PQMK3",
"ALTDM(UniMod:35)PQM(UniMod:35)R2",
"ALTDM(DummyModification)PQMK3"),
"traceR_precursor_unknownMods" = c(FALSE, FALSE, TRUE, FALSE, TRUE)
)
# Generate Report - precursor level
analyze_unknown_mods(
input_df = data,
level = "precursor",
plot = FALSE
)
# Generate relative Plot - peptide level
analyze_unknown_mods(
input_df = data,
level = "modified_peptides",
plot = TRUE,
plot_characteristic = "relative"
)
# }
Run the code above in your browser using DataLab