## Not run:
#
# # right alpha matrix
# alphaRight <- matrix(1:9, 3,3)
# alphaCheck(alphaRight, 3, 3)
# # return is right alpha matrix
#
# # wrong alpha matrix
# alphaWrong <- matrix(0:8, 3,3)
# alphaCheck(alphaWrong, 3,3)
# alphaCheck(alphaRight, 3,4)
# ## End(Not run)
Run the code above in your browser using DataLab