1

Preciso substituir o valor que aparece na diagonal principal da minha matriz por outro, como proceder?

11
  • Um único valor da diagonal principal? Dê uma olhada na documentação da função diag. Seria legal apresentar a estrutura do seus dados para reprodução. Commented 30/06/2017 às 15:50
  • Isso, Rafael. É que eu realizei uma operação na matriz, mas essa operação não vale pra diagonal. Aí quero substituir por 1 (que era o valor anterior da diagonal, antes da operação).
    – Let DC
    Commented 30/06/2017 às 16:05
  • Será que algum comando replace ou ifelse funcionaria?
    – Let DC
    Commented 30/06/2017 às 16:05
  • 1
    você tem sua matriz M, armazena os valores da diagonal em um objeto valor <- diag(M), depois você realiza a operação necessária na matriz. Como você mesmo disse, os valores da diagonal vão alterar, depois você retorna com os valores originais diag(M) <- valor Commented 30/06/2017 às 16:58
  • 1
    Então, o comando diag(M) <- valor vai inserir o valor na matriz. Eu vou colocar como resposta uns comandos para exemplificar Commented 30/06/2017 às 17:09

1 Resposta 1

2
M <- matrix(rpois(25, lambda = 4), ncol = 5)
M
 [,1] [,2] [,3] [,4] [,5]
[1,]    4    3    4    3    6
[2,]    3    2    6    1    6
[3,]    3    4    6    4    1
[4,]    9    3    3    4    4
[5,]    3    5    6    3    8

valor <- diag(M)
valor
[1] 4 2 6 4 8

M <- (M**M)*10
M
           [,1]  [,2]   [,3] [,4]      [,5]
[1,]       2560   270   2560  270    466560
[2,]        270    40 466560   10    466560
[3,]        270  2560 466560 2560        10
[4,] 3874204890   270    270 2560      2560
[5,]        270 31250 466560  270 167772160

diag(M) <- valor
M
           [,1]  [,2]   [,3] [,4]   [,5]
[1,]          4   270   2560  270 466560
[2,]        270     2 466560   10 466560
[3,]        270  2560      6 2560     10
[4,] 3874204890   270    270    4   2560
[5,]        270 31250 466560  270      8

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .