test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- matrix(letters(1:10),5,2)#
	B <- runif(2)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	expect_that(dl$A,equals(A))#
	expect_that(dl$B,equals(B))#
	expect_that(dl$C,equals(C))#
})
library(testthat)
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- matrix(letters(1:10),5,2)#
	B <- runif(2)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	expect_that(dl$A,equals(A))#
	expect_that(dl$B,equals(B))#
	expect_that(dl$C,equals(C))#
})
A <- matrix(letters(1:10),5,2)#
	B <- runif(2)#
	C <- runif(5)#
	dl <- data.list(A,B,C)
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- matrix(letters[1:10],5,2)#
	B <- runif(2)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	expect_that(dl$A,equals(A))#
	expect_that(dl$B,equals(B))#
	expect_that(dl$C,equals(C))#
})
	library(multitable)#
	A <- matrix(letters[1:10],5,2)#
	B <- runif(2)#
	C <- runif(5)#
	dl <- data.list(A,B,C)
dl
A
dl$B
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- matrix(letters[1:10],5,2)#
	B <- runif(2)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	dl3 <- data.list(A[1:3,1:2],B[1:2],C[1:3])#
	expect_that(dl2,equals(dl3))#
})
library(multitable)#
	A <- matrix(letters[1:10],5,2)#
	B <- runif(2)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	dl3 <- data.list(A[1:3,1:2],B[1:2],C[1:3])
dl
dl2
dl3
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- matrix(letters[1:10],5,2)#
	B <- runif(2)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1]#
	A <- A[1:3,1]#
	B <- B[1]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	expect_that(dl2,equals(dl3))#
})
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- matrix(letters[1:15],5,3)#
	B <- runif(3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	A <- A[1:3,1:2]#
	B <- B[1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	expect_that(dl2,equals(dl3))#
})
	A <- matrix(letters[1:15],5,3)#
	B <- runif(3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	A <- A[1:3,1:2]#
	B <- B[1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)
dl
dl1
dl2
dl3
dl2$A
dl3$A
dl2$B
dl3$B
debug(multitable:::`[.data.list`)
dl2 <- dl[1:3,1:2]
x
x[[i]]
Q
?factor
dl2$A
relevel(dl2$A)
relevel(dl2$A,dl2$A[1,1])
dl2$A[1,1]
as.data.frame(dl)
as.data.frame(dl)$A
as.data.frame(dl)$A[1:5]
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- runif(3)#
	B <- matrix(letters[1:15],5,3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	A <- A[1:2]#
	B <- B[1:3,1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	expect_that(dl2$B,equals(dl3$B))#
})
Q
undebug(multitable:::`[.data.list`)
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- runif(3)#
	B <- matrix(letters[1:15],5,3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	A <- A[1:2]#
	B <- B[1:3,1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	expect_that(dl2$B,equals(dl3$B))#
})
library(multitable)#
	A <- runif(3)#
	B <- matrix(letters[1:15],5,3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	A <- A[1:2]#
	B <- B[1:3,1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)
dl2$B
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- runif(3)#
	B <- matrix(letters[1:15],5,3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	A <- A[1:2]#
	B <- B[1:3,1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	expect_that(dl2$A,equals(dl3$A))#
})
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- runif(3)#
	B <- matrix(letters[1:15],5,3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	A <- A[1:2]#
	B <- B[1:3,1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	levels(dl2$B) <- levels(dl3$B)#
	expect_that(dl2$A,equals(dl3$A))#
	expect_that(dl2$B,equals(dl3$B))#
	expect_that(dl2$C,equals(dl3$C))#
})
	A <- runif(3)#
	B <- matrix(letters[1:15],5,3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	A <- A[1:2]#
	B <- B[1:3,1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	levels(dl2$B) <- levels(dl3$B)
levels(dl2$B)
levels(dl3$B)
dl2$B
dl2$B[,drop = TRUE]
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- runif(3)#
	B <- matrix(letters[1:15],5,3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	dl2$B <- dl2$B[,drop = TRUE]#
	A <- A[1:2]#
	B <- B[1:3,1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	expect_that(dl2$A,equals(dl3$A))#
	expect_that(dl2$B,equals(dl3$B))#
	expect_that(dl2$C,equals(dl3$C))#
})
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- runif(3)#
	B <- matrix(letters[1:15],5,3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	dl2$B <- dl2$B[,drop = TRUE]#
	A <- A[1:2]#
	B <- B[1:3,1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	expect_that(dl2,equals(dl3))#
	expect_that(dl2$B,equals(dl3$B))#
	expect_that(dl2$C,equals(dl3$C))#
})
test_that("character valued benchmark variable",{#
	library(multitable)#
	A <- runif(3)#
	B <- matrix(letters[1:15],5,3)#
	C <- runif(5)#
	dl <- data.list(A,B,C)#
	dl2 <- dl[1:3,1:2]#
	dl2$B <- dl2$B[,drop = TRUE]#
	A <- A[1:2]#
	B <- B[1:3,1:2]#
	C <- C[1:3]#
	dl3 <- data.list(A,B,C)#
	expect_that(dl2,equals(dl3))#
})
