小编Tri*_*dar的帖子

我正在尝试在 R 中对不平衡数据集进行 SMOTE。我尝试为此安装“DMwR”包，但似乎该包已从 cran 存储库中删除。\n我收到错误：“包 \xe2\x80\x98DMwR\xe2\x80\x99 不可用（对于 R版本 4.0.2) "

谁能帮我解决这个问题吗？或者建议在 R 中使用 SMOTE 的任何其他包？

蒂亚！

例如我有一个 2*3 矩阵

     [,1] [,2] [,3]
[1,]    2    4    6
[2,]    3    5    7

我想要一个 3*3 的矩阵，在 R 的对角线上插入 1 输出：

     [,1] [,2] [,3]
[1,]    1    4    6
[2,]    2    1    7
[3,]    3    5    1

我有一个矩阵/数据帧列表，例如：

mat = list(matrix(1:6,2,3),matrix(5:10,2,3),matrix(4:9,2,3))
mat
[[1]]
     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6

[[2]]
     [,1] [,2] [,3]
[1,]    5    7    9
[2,]    6    8   10

[[3]]
     [,1] [,2] [,3]
[1,]    4    6    8
[2,]    5    7    9

我想从每个矩阵中获取最大元素。

a= matrix(0,2,3)
for(i in 1:2){
  for(j in 1:3){
    a[i,j] = max(sapply(mat,function(x){x[i,j]}))
  }
}
a
     [,1] [,2] [,3]
[1,]    5    7    9
[2,]    6    8   10

这给了我想要的输出，但是有什么方法可以在没有 for 循环的情况下完成它？