# 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)Run the code above in your browser using DataLab