test <- data.frame(
A = c("x","y","z"),
B = rep(c("a","b","c"), each = 3),
C = rep(c("1","2","3"), each = 3*3),
testResult = runif(1*3*3*3)
)
test <- Ovariable(
name = "test",
output = test,
marginal = c(TRUE, TRUE, TRUE, FALSE)
)
odebug(test, variance = TRUE)
Run the code above in your browser using DataLab