R:动态地将参数传递给 pmin 或 pmax - 代码不起作用

Question

下面的代码摘录在 Array1 是填充的 3 维数组的情况下工作正常:

LotsMaxs <- pmax.int(Array1[,1,],Array1[,2,],Array1[,3,],Array1[,4,])

在这个例子中，代表治疗的第二个维度(上面代码中的 1 到 4)是我所知道的，因此很容易编程。我想编写一个可以处理任意数量治疗的函数。因此，如果 nTreatment=2 上面的代码将变为:

LotsMaxs <- pmax.int(Array1[,1,],Array1[,2,])

我已经用诸如

之类的命令进行了编程

text=noquote(c(paste("Array1[,", 1:(nTreatment-1),",],", sep =   ""),paste("Array1[,", nTreatment,",]", sep = "")))

以及许多类似的变体，并尝试将它们插入到命令中，例如:

LotsMaxs <- pmax.int(text) # and:
LotsMaxs <- do.call(pmax.int,list(numeric=text))

我尝试过的任何方法都不起作用。非常感谢任何帮助。

Answer 1

您可以使用apply来实现此目的:

apply(Array1, 2, pmax.int)

apply 将函数(在您的情况下为 pmax.int)应用到数组的“MARGIN”。您想将其应用到第二个“MARGIN”。请参阅？应用

附注:如果这不是您要找的请提供一个可重现的示例。