Nothing
## Test setup
if(FALSE) {
library("RUnit")
library("gdata")
}
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.