# NOT RUN {
A = matrix(runif(4, -1, 1), ncol=2)
PD = PolarDecomp(A)
E = svd(A)
### W S V
E$u
# }
# NOT RUN {
<!-- %*% diag(E$d)%*% t(E$v) -->
# }
# NOT RUN {
###t(E$v) %*% diag(E$d)%*% (E$u)
P = E$v
# }
# NOT RUN {
<!-- %*% diag(E$d)%*% t(E$v) -->
# }
# NOT RUN {
U = E$u
# }
# NOT RUN {
<!-- %*% t(E$v) -->
# }
# NOT RUN {
U
# }
# NOT RUN {
<!-- %*% P -->
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab