/usr/lib/R/site-library/gdata/unitTests/runit.cbindX.R is in r-cran-gdata 2.13.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 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 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | ### runit.cbindX.R
###------------------------------------------------------------------------
### What: Unit tests for cbindX
### $Id: runit.cbindX.R 1300 2008-08-05 11:47:18Z ggorjan $
### Time-stamp: <2008-08-05 13:40:49 ggorjan>
###------------------------------------------------------------------------
### {{{ --- Test setup ---
if(FALSE) {
library("RUnit")
library("gdata")
}
### }}}
### {{{ --- cbindX ---
test.cbindX <- function()
{
df1 <- data.frame(a=1:3, b=c("A", "B", "C"))
df2 <- data.frame(c=as.character(1:5), a=5:1)
ma1 <- matrix(as.character(1:4), nrow=2, ncol=2)
ma2 <- matrix(1:6, nrow=3, ncol=2)
df12test <- cbindX(df1, df2)
df12stand <- data.frame(a=c(1:3, NA, NA),
b=c("A", "B", "C", NA, NA),
c=as.character(1:5),
a=5:1)
names(df12stand)[4] <- "a"
checkEquals(df12test, df12stand)
ma12test <- cbindX(ma1, ma2)
ma12stand <- matrix(as.character(c(1, 3, 1, 4,
2, 4, 2, 5,
NA, NA, 3, 6)), nrow=3, ncol=4, byrow=TRUE)
checkEquals(ma12test, ma12stand)
da11test <- cbindX(df1, ma1)
da11stand <- data.frame(a=1:3,
b=c("A", "B", "C"),
as.character(c(1:2, NA)),
as.character(c(3:4, NA)))
names(da11stand)[3:4] <- c("1", "2")
checkEquals(da11test, da11stand)
tmpTest <- cbindX(df1, df2, ma1, ma2)
tmpStand <- data.frame(a=c(1:3, NA, NA),
b=c("A", "B", "C", NA, NA),
c=as.character(1:5),
a=5:1,
as.character(c(1:2, NA, NA, NA)),
as.character(c(3:4, NA, NA, NA)),
c(1:3, NA, NA),
c(4:6, NA, NA))
names(tmpStand)[4:8] <- c("a", "1", "2", "1", "2")
checkEquals(tmpTest, tmpStand)
tmpTest <- cbindX(ma1, ma2, df1, df2)
tmpStand <- data.frame(as.character(c(1:2, NA, NA, NA)),
as.character(c(3:4, NA, NA, NA)),
as.character(c(1:3, NA, NA)),
as.character(c(4:6, NA, NA)),
a=c(1:3, NA, NA),
b=c("A", "B", "C", NA, NA),
c=as.character(1:5),
a=5:1)
names(tmpStand)[c(1:4, 8)] <- c("1", "2", "3", "4", "a")
checkEquals(tmpTest, tmpStand)
}
### }}}
### {{{ Dear Emacs
### Local variables:
### folded-file: t
### end:
### }}}
###------------------------------------------------------------------------
### runit.cbindX.R ends here
|