## 2x2 array
x <- parray(c("a", "b"), levels=c(2, 2), values=1:4)
x <- tabNew(c("a", "b"), levels=c(2, 2), values=1:4)
## Simulate from entire array
s <- simulateArray(x, 1000)
xtabs(~., as.data.frame(s))
## Simulate from slice defined by that dimension 1 is fixed at level 2
s <-simulateArray(x, 1000, margin=1, value.margin=2)
xtabs(~., as.data.frame(s))
## 2 x 2 x 2 array
x <- parray(c("a", "b", "c"), levels=c(2, 2, 2), values=1:8)
## Simulate from entire array
s <-simulateArray(x, 36000)
xtabs(~., as.data.frame(s))
## Simulate from slice defined by that dimension 3 is fixed at level 1
s <-simulateArray(x, 10000, 3, 1)
xtabs(~., as.data.frame(s))
Run the code above in your browser using DataLab