我试图创建一个给定的函数，m并p返回具有m行和mxp列的矩阵。矩阵0的p位置除外p（从（行数）开始）应为。
例如，给定m=4和p=2，矩阵应类似于：
1 1 0 0 0 0 0 0
0 0 1 1 0 0 0 0
0 0 0 0 1 1 0 0
0 0 0 0 0 0 1 1
我想处理大型矩阵。我知道如何使用其他编程语言（例如python）中的循环来执行此操作，但是我相信这应该是在R中执行此操作的一种更简单，更优雅的方法diag()。