library("prolfquapp")
if (requireNamespace("anndataR", quietly = TRUE)) {
# Protein-level
res <- sim_data_protAnnot(Nprot = 10, PROTEIN = TRUE)
adata <- preprocess_anndata_from_lfq(res$lfqdata, res$pannot, "simulated")
adata # 12 obs x 10 var
# Peptide-level (multiple peptides per protein)
res2 <- sim_data_protAnnot(Nprot = 10, PROTEIN = FALSE)
adata2 <- preprocess_anndata_from_lfq(res2$lfqdata, res2$pannot, "simulated")
adata2 # 12 obs x ~28 var (peptides)
# Round-trip back to LFQData
back <- LFQData_from_anndata(adata2)
back$lfqdata$hierarchy_counts()
}# A tibble: 1 × 3
isotopeLabel protein_Id peptide_Id
<chr> <int> <int>
1 light 10 28