# Load libraries
library(tibble)
library(magrittr)
library(stringr)
# Example data
data <- list(
Spectronaut = list(
filename = "C",
software = "Spectronaut",
data = list(
"Spectronaut" = tibble::tibble(
Stripped.Sequence_mpwR = c("A", "B", "C", "D", "E"),
Missed.Cleavage_mpwR = c(0, 1, 1, 2, 2)
)
)
)
)
# Result
output <- get_MC_Report(
input_list = data,
metric = "absolute"
)
Run the code above in your browser using DataLab