powered by
getExpectedValues(x)
x <- array(c(1:8), dim=c(2,2,2)) getExpectedValues(x)
Run the code above in your browser using DataLab