/usr/lib/R/site-library/Biobase/UnitTests/esApply_test.R is in r-bioc-biobase 2.14.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | test_esApply_base <- function() {
data(sample.ExpressionSet)
target <- with(pData(sample.ExpressionSet),
apply(exprs(sample.ExpressionSet), 1, sum))
current <- esApply(sample.ExpressionSet, 1, sum)
checkIdentical(target, current)
}
test_esApply_lexical_scope <- function() {
data(sample.ExpressionSet)
f <- function() {
x <- 0
function(y) x <<- x + 1
}
target <- with(pData(sample.ExpressionSet),
apply(exprs(sample.ExpressionSet), 1, f()))
current <- esApply(sample.ExpressionSet, 1, f())
checkIdentical(target, current)
}
test_esApply_local_scope <- function() {
data(sample.ExpressionSet)
target <- with(pData(sample.ExpressionSet),
apply(exprs(sample.ExpressionSet), 1,
function(x) {
xx <- split(x, sex)
mean(xx[[1]]) - mean(xx[[2]])
}))
current <- esApply(sample.ExpressionSet, 1,
function(x) {
xx <- split(x, sex)
mean(xx[[1]]) - mean(xx[[2]])
})
checkIdentical(target, current)
f <- function(x) {
xx <- split(x, sex)
mean(xx[[1]]) - mean(xx[[2]])
}
current <- esApply(sample.ExpressionSet, 1, f)
checkIdentical(target, current)
f <- function(x, s) {
xx <- split(x, s)
mean(xx[[1]])-mean(xx[[2]])
}
sex=sample.ExpressionSet[["sex"]]
current <- esApply(sample.ExpressionSet, 1, f, s=sex)
checkIdentical(target, current)
}
test_esApply_global_args <- function() {
data(sample.ExpressionSet)
f <- function(x, t) t*sum(x)
target <- with(pData(sample.ExpressionSet),
apply(exprs(sample.ExpressionSet), 1, f, 10))
current <- esApply(sample.ExpressionSet, 1, f, 10)
checkIdentical(target, current, msg="unnamed global arg")
current <- esApply(sample.ExpressionSet, 1, f, t=10)
checkIdentical(target, current, msg="named global arg")
}
|