# NOT RUN {
## Generate two random HPD matrices
q <- matrix(complex(real = rnorm(9), imaginary = rnorm(9)), nrow = 3)
Q <- t(Conj(q)) %*% q
p <- matrix(complex(real = rnorm(9), imaginary = rnorm(9)), nrow = 3)
P <- t(Conj(p)) %*% p
## Compute logarithmic map
Logm(P, Q)
# }
Run the code above in your browser using DataLab