Sigma <- matrix(c(1.21,0.18,0.13,0.41,0.06,0.23,
0.18,0.64,0.10,-0.16,0.23,0.07,
0.13,0.10,0.36,-0.10,0.03,0.18,
0.41,-0.16,-0.10,1.05,-0.29,-0.08,
0.06,0.23,0.03,-0.29,1.71,-0.10,
0.23,0.07,0.18,-0.08,-0.10,0.36),6,6)
LD <- chol(Sigma)
L <- LD$L
D <- LD$D
round(L,5)
round(D,5)
solve(L) %*% D %*% solve(t(L))
LD <- chol(Sigma, p = 2)
L <- LD$L
D <- LD$D
round(L, 5)
round(D, 5)
solve(L) %*% D %*% solve(t(L))
Run the code above in your browser using DataLab