# Create pseudobulk counts and coldata for DESeq2:
coldata <- data.frame(
celltype = rep(c("X+Y-", "X+Y+", "X-Y+", "X-Y-"),
each = nrow(simulated_umis$embed)/4), # 4 cell types
patient = c("3", "500.", "*5", "/")
)
coldata$pseudobulk_id <- pseudobulk_id(coldata)
counts <- pseudobulk(simulated_umis$raw, coldata$pseudobulk_id)
# Use counts/coldata as input for DESeqDataSetFromMatrix (DESeq2).
Run the code above in your browser using DataLab