有效地计算R中两个矩阵的逐元素最小值

Question

我有两个矩阵A和B，其典型元素为a_ {i，j}和b_ {i，j}。我想获得具有典型元素c_ {i，j} = min {a_ {i，j}，b_ {i，j}}的矩阵C.

我如何在R中有效地做到这一点？

Answer 1

看一下pmin函数，就是这样。

set.seed(123)

A <- matrix(runif(9),nrow=3)
#          [,1]      [,2]      [,3]
#[1,] 0.2875775 0.8830174 0.5281055
#[2,] 0.7883051 0.9404673 0.8924190
#[3,] 0.4089769 0.0455565 0.5514350
A
B <- matrix(runif(9),nrow=3)
B
#          [,1]      [,2]       [,3]
#[1,] 0.4566147 0.6775706 0.89982497
#[2,] 0.9568333 0.5726334 0.24608773
#[3,] 0.4533342 0.1029247 0.04205953

pmin(A,B)
#          [,1]      [,2]       [,3]
#[1,] 0.2875775 0.6775706 0.52810549
#[2,] 0.7883051 0.5726334 0.24608773
#[3,] 0.4089769 0.0455565 0.04205953

亚历