> (A=matrix(c(1,-.5,-.5,1),nr=2))
     [,1] [,2]
[1,]  1.0 -0.5
[2,] -0.5  1.0
> svd(A)
$d
[1] 1.5 0.5

$u
           [,1]      [,2]
[1,] -0.7071068 0.7071068
[2,]  0.7071068 0.7071068

$v
           [,1]      [,2]
[1,] -0.7071068 0.7071068
[2,]  0.7071068 0.7071068