R语言，矩阵计算，求大神指导

请问大佬们，这个公式怎么用R语言实现呀

我写的代码是这样的

计算的结果不对，有大神指导吗？

不知道你这个问题是否已经解决, 如果还没有解决的话:

如果你已经解决了该问题, 非常希望你能够分享一下解决方案, 以帮助更多的人 ^-^