> d <- estimateCommonDisp(d)
> names(d)
[1] "samples"           "common.dispersion" "counts"            "pseudo.alt"        "genes"            
[6] "all.zeros"         "conc"              "common.lib.size"  
> d$common.lib.size
[1] 1e+06
> d$common.dispersion
[1] 0.5223121