###################################
### Differential splicing analysis
###################################
# If possible, use BPPARAM = BiocParallel::MulticoreParam() with more workers
d <- data_dmDSdata
### Filtering
# Check what is the minimal number of replicates per condition
table(samples(d)$group)
d <- dmFilter(d, min_samps_gene_expr = 7, min_samps_feature_expr = 3,
min_samps_feature_prop = 0)
### Calculate dispersion
d <- dmDispersion(d, BPPARAM = BiocParallel::SerialParam())
### Fit full model proportions
d <- dmFit(d, BPPARAM = BiocParallel::SerialParam())
head(proportions(d))
head(statistics(d))
Run the code above in your browser using DataLab