종종 다음과 같이 대각 행렬이 필요할 때가 있다. diag() 함수를 사용하여 손쉽게 대각 행렬을 만들 수 있다.
> diag(1, nrow = 5)
[,1] [,2] [,3] [,4] [,5]
[1,] 1 0 0 0 0
[2,] 0 1 0 0 0
[3,] 0 0 1 0 0
[4,] 0 0 0 1 0
[5,] 0 0 0 0 1