How to do this matrix“operation” in R?

Question

So I have this diagonal matrix

> M
   a  b  c  d
 a 2  3  5  4
 b .  3  6  4
 c .  .  4  6
 d .  .  .  3
 > 

and what I want to do is t