Access metadata (avoid name clash with S4 generics)
Examples
data(Snail1KO)
counts <- as.matrix(Snail1KO$rawCounts)
counts <- counts[rowSums(counts >= 10) >= 3, ]
meta <- Snail1KO$metadata
rownames(meta) <- meta$Sample
norm <- log2(t(t(counts) / colSums(counts)) * 1e6 + 1)
obj <- GenEDA(normalized = norm, metadata = meta, counts = counts)
getMetadata(obj)
#> Sample Disease Genotype CellLine_CellType
#> ERR1736465 ERR1736465 breast carcinoma WT HS578T - epithelial cell
#> ERR1736466 ERR1736466 breast carcinoma WT HS578T - epithelial cell
#> ERR1736467 ERR1736467 breast carcinoma WT HS578T - epithelial cell
#> ERR1736468 ERR1736468 breast carcinoma Snai1_KO HS578T - epithelial cell
#> ERR1736469 ERR1736469 breast carcinoma Snai1_KO HS578T - epithelial cell
#> ERR1736470 ERR1736470 breast carcinoma Snai1_KO HS578T - epithelial cell
