/usr/lib/R/site-library/GenomicFeatures/unitTests/test_makeIdsForUniqueDataFrameRows.R is in r-bioc-genomicfeatures 1.26.2-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 | ###
test_makeIdsForUniqueDataFrameRows <- function()
{
x <- data.frame(
chrom=c("chr2", "chr2", "chr2", "chr2", "chr1",
"chr2", "chr2", "chr1", "chr3", "chr1"),
strand=c("+", "-", "-", "+", "+", "+", "+", "-", "-", "+"),
start=c(5, 2, 2, 5, 4, 5, 5, 4, 2, 1),
end=c(15, 12, 12, 15, 14, 13, 15, 14, 12, 11)
)
y <- unique(x)[GenomicFeatures:::makeIdsForUniqueDataFrameRows(x), ]
row.names(y) <- NULL
checkEquals(y, x)
}
|