Création de l'Identité des Matrices dans la R

J'aimerais créer l'identité des matrices de tailles différentes, et je suis en mesure de le faire sur une plus petite échelle comme suit:

> x <- matrix(cbind(c(1,0), c(0,1)), 2)
> x
     [,1] [,2]
[1,]    1    0
[2,]    0    1

Et de la sorte:

> y <- matrix(cbind(c(1,0,0), c(0,1,0), c(0,0,1)), 3)
> y
     [,1] [,2] [,3]
[1,]    1    0    0
[2,]    0    1    0
[3,]    0    0    1

Cependant, il semble que cela va devenir de plus en plus fastidieux que l'identité des matrices de l'augmentation de la taille.

Création de l'Identité des Matrices dans la R

Est-il un moyen plus facile de créer n-valeur de l'identité des matrices?

  • diag(5) est un 5x5 matrice identité
  • Merci, c'est parfait. Je suis heureux de le marquer comme réponse, si vous le mettez ci-dessous.
InformationsquelleAutor | 2014-11-23
  1. 22

    un (deux) des usages diag quand nrow est spécifiée, ou lorsque x est un vecteur de longueur un, vous obtenez une matrice d'identité

    diag(5)
diag(nrow = 5)

    ou vous pouvez créer une matrice de 0 et de remplir la diagonale:

    mat <- matrix(0, 5, 5)
diag(mat) <- 1

## or shorter:
`diag<-`(matrix(0, 5, 5), 1)

    Tous les de ces me donner:

    #      [,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
    InformationsquelleAutor rawr