opérations matrices logiciel R

[invite8af6f6ae]

bonjour a tous voila mon problème
soit M une matrice 2*2 M(abcd)
je souhaite faire le calcul suivant
a*b+a*c+a*d+b*c+c*d+d*b en créant une fonction
====> fonction(M)= résultat du calcul
j'ai essayé ceci
> m=matrix(c(1,1,-1,1),c(2,2))
> m
[,1] [,2]
[1,] 1 -1
[2,] 1 1
> for( j in 1:2) { print( m[j,1]*m[j,2])}+ for (i in 1:2) { print( m[1,j]*m[2,j])}
[1] -1
[1] 1
[1] 1
[1] 1
[1] -1
[1] -1
merci de m'aider.
-----

[invitec5eb4b89]

Bonjour, à quoi te servent tes boucles for dans le code que tu nous as montré ?
Comme la matrice est toute petite, je propose un code simple du style :

# initialisation
rm(list=ls())
# declaration fonction
f <- function(M) {
  a <- M[1,1] ; b <- M[1,2]
  c <- M[2,1] ; d <- M[2,2]
  return(a*b+a*c+a*d+b*c+c*d+d*b)
}
# essai
print(f(matrix(c(1,1,-1,1),c(2,2))))

Est-ce que cela répond à la question ?
V.

[invite8af6f6ae]

oui c'est bon merci beaucoup