powered by
theta2W(theta)
W2theta
#Generate orthogonal matrix: mat <- matrix(rnorm(9),3,3) W = svd(mat)$u theta <- W2theta(W) #Recovers W: theta2W(theta)
Run the code above in your browser using DataLab