分散共分散行列を相関係数行列に変換するR関数

自分で関数書けばいいってのもごもっともだし，他にも色々あるんだけど，bayesmパッケージにnmatっていう関数がある。

vcovm<-matrix(c(3,2,2,3),2,2)
cm<-nmat(vcovm)
matrix(cm,2,2)