/usr/lib/R/site-library/Biobase/unitTests/test_combine.R is in r-bioc-biobase 2.34.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 | testCombineOne <- function() {
data(sample.ExpressionSet)
checkIdentical(sample.ExpressionSet,
combine(sample.ExpressionSet))
}
testCombineTwo <- function() {
data(sample.ExpressionSet)
x <- sample.ExpressionSet
checkTrue(all.equal(x, combine(x[,1:5],x[,seq(6, ncol(x))])))
}
testCombineThree <- function() {
data(sample.ExpressionSet)
x <- sample.ExpressionSet
y <- combine(x[,1:5],x[, 6:10], x[,seq(11, ncol(x))])
checkTrue(all.equal(x, y))
}
|