在R中运行density（），使用来自独立矩阵的矩阵行的权重

我对R真的是个新手，两个晚上我一直在为这个问题绞尽脑汁浏览SO和其他R资源。。。我有一个数据集，其中我有两个矩阵，一个用于股市观察（股票回报），一个用于权重（指数市值的分数）。在这两种情况下，列是该股票代码的数据，行是该月的数据

我希望在第二步中使用density（）来比较使用Kullback-Leibler散度的行（月收益率）。我的问题是，我无法找到一种语法来移动所使用的权重行w[I，]（因为我一直在使用apply（）/lappy（），这可能就是问题所在），然后将density（）输出矩阵整齐地存储在列表中。我的结果仅仅是第一个权重行，而不是整个权重行

我还尝试使用：

mylist <- list()
for (x in 1:n) {mylist <- density(R[x,]], 1, weights = (W[x,])}

mylist您的括号不平衡（例如，
R[x，]
和缺少结束语
）
）。确保代码运行且问题可重现有助于防止这些类型的语法错误，并使每个人都感到高兴。