R에서 대칭 행렬 만들기

Question

R에서이 행렬을 어떻게 만들 수 있습니까? 실제로, 예를 들면 매트릭스 A[1,1]의 fisrt 소자 x^2 및 j의 곱의 합과 동일하다 A[1,2]는 ... equla가 x 및 y 및 j의 곱의 합이다

  x = 1:3 
      y = c(2, 4, 6) 
      z = c(3, 7, 9) 
      j = c(5, 10, 15) 
     > A 
      [,1] [,2] [,3] 
     [1,] 180 360 560 
     [2,] 360 720 1120 
     [3,] 560 1120 1750 

Answer 1

제 추측 :

R > mat = as.matrix(cbind(x, y,z)) 
R > mat 
    x y z 
[1,] 1 2 3 
[2,] 2 4 7 
[3,] 3 6 9 
R > t(mat)%*%diag(j)%*%mat 
    x y z 
x 180 360 560 
y 360 720 1120 
z 560 1120 1750