## Not run:
# # 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)
# ## End(Not run)
Run the code above in your browser using DataLab