/usr/lib/R/site-library/IRanges/unitTests/test_DataFrame-utils.R is in r-bioc-iranges 2.4.1-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 | ## splitting
test_DataFrame_splitting <- function() {
data(swiss)
rn <- rownames(swiss)
sw <- DataFrame(swiss, row.names=rn)
swisssplit <- split(swiss, swiss$Education)
## split
swsplit <- split(sw, sw[["Education"]])
checkTrue(validObject(swsplit))
checkIdentical(as.list(lapply(swsplit, as.data.frame)), swisssplit)
checkTrue(validObject(split(DataFrame(IRanges(1:26, 1:26), LETTERS),
letters)))
}
|