R/s_value.r

In shipunov: Miscellaneous Functions from Alexey Shipunov

Defines functions S.value

Documented in S.value

S.value <- function(x) {
if(is.list(x)) {
 pos <- grep("p.*value.*", names(x), ignore.case=TRUE, perl=TRUE)[1]
 x <- x[[pos]]
 }
-log2(x)
}

Try the shipunov package in your browser