# right beta array
beta1 <- rep(c(0,0.25,0.75), each=3)
beta2 <- rep(beta1, 3)
betaRight <- array(beta2, dim=c(3,3,3))
betaCheck(betaRight, 3,3,3)
# wrong beta array
betaWrong <- array(1:27, dim=c(3,3,3))
betaCheck(betaWrong)Run the code above in your browser using DataLab