Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/linux/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R：如何使用三维数组的边距作为同一函数的单个参数？_R_Arrays_Function - Fatal编程技术网
Fatal编程技术网
  • r/
  • R：如何使用三维数组的边距作为同一函数的单个参数？

R：如何使用三维数组的边距作为同一函数的单个参数？

r arrays function

R：如何使用三维数组的边距作为同一函数的单个参数？,r,arrays,function,R,Arrays,Function,我有一个名为TOM的数组。命令dim（TOM）返回24004000 当我跑步时： consensusTOM <- pmin(TOM[1, , ], TOM[2, , ]) 同样，如果我输入一个维度为4、4000、4000的数组，它将执行以下操作： consensusTOM <- pmin(TOM[1, , ], TOM[2, , ], TOM[3, , ]) consensusTOM <- pmin(TOM[1, , ], TOM[2, , ], TOM[3, , ], T

我有一个名为TOM的数组。命令
dim（TOM）
返回24004000

当我跑步时：

consensusTOM <- pmin(TOM[1, , ], TOM[2, , ])
同样，如果我输入一个维度为4、4000、4000的数组，它将执行以下操作：

consensusTOM <- pmin(TOM[1, , ], TOM[2, , ], TOM[3, , ])

consensusTOM <- pmin(TOM[1, , ], TOM[2, , ], TOM[3, , ], TOM[4, , ])

consensestom一个选项是通过循环第一个维度将其更改为
列表
，然后在
do.call中使用
pmin


do.call(pmin, lapply(seq(dim(TOM)[1]), function(i) TOM[i,,]))



一个选项是通过在第一个维度上循环将其更改为
列表
，然后在
do.call中使用
pmin


do.call(pmin, lapply(seq(dim(TOM)[1]), function(i) TOM[i,,]))