Construya una array diagonal en programación R – Función diag()

La función diag() en lenguaje R se usa para construir una array diagonal.
 

Sintaxis: diag(x, nrow, ncol)
Parámetros:  
x: valor presente como elementos de la diagonal. 
nrow, ncol: número de filas y columnas en las que se representan los elementos. 
 

Ejemplo 1: 
 

# R program to illustrate
# diag function
 
# Calling the diag() function with
# some number which will act as
# rows as well as columns number
diag(3)
diag(5)

Producción: 
 

     [, 1] [, 2] [, 3]
[1, ]    1    0    0
[2, ]    0    1    0
[3, ]    0    0    1

     [, 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

Ejemplo 2: 
 

# R program to illustrate
# diag function
 
# Calling the diag() function
diag(5, 2, 3)
diag(10, 3, 3)

Producción: 
 

     [, 1] [, 2] [, 3]
[1, ]    5    0    0
[2, ]    0    5    0

     [, 1] [, 2] [, 3]
[1, ]   10    0    0
[2, ]    0   10    0
[3, ]    0    0   10