r语言里，一个3*3矩阵需要求每行/每列的数据平方和，并且形成新的列/行，该怎么实现呢