如何利用R实现将对称正定矩阵a分解成一个矩阵乘以其转置的形式啊？即，a=t(b)%*%b的形式啊。