# Load libraries
library(tibble)
# Example data
data <- list(
DIANN = list(
filename = "B",
software = "DIA-NN",
data = list(
"DIA-NN" = tibble::tibble(
"Run_mpwR" = c("R01", "R01", "R02", "R03", "R01"),
"Precursor.IDs_mpwR" = c("A1", "A1", "A1", "A1", "B2"),
"Retention.time_mpwR" = c(3, 3.5, 4, 5, 4),
"ProteinGroup_LFQ_mpwR" = c(3, 4, 5, 4, 4),
"Peptide.IDs_mpwR" = c("A", "A", "A", "A", "B"),
"Protein.IDs_mpwR" = c("A", "A", "A", "A", "B"),
"ProteinGroup.IDs_mpwR" = c("A", "A", "A", "A", "B"),
"Stripped.Sequence_mpwR" = c("ABCR", "AKCR", "ABKCK", "ARKAR", "ABCDR")
)
)
)
)
# Result
output <- get_summary_Report(
input_list = data
)
Run the code above in your browser using DataLab