1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
getDispersion <- function(y)
# Get most complex dispersion values from DGEList object
# Gordon Smyth
# Created 12 Dec 2011. Last modified 3 Oct 2012.
{
if( !is.null(y$tagwise.dispersion) ) {
dispersion <- y$tagwise.dispersion
attr(dispersion,"type") <- "tagwise"
} else {
if( !is.null(y$trended.dispersion) ) {
dispersion <- y$trended.dispersion
attr(dispersion,"type") <- "trended"
} else {
if( !is.null(y$common.dispersion) ) {
dispersion <- y$common.dispersion
attr(dispersion,"type") <- "common"
} else
dispersion <- NULL
}
}
dispersion
}
|
