在apply函数中使用列最小值

Question

我有一个申请功能：

flow.index<-apply(dt_matrix,c(1,2),function(x) (1-x)/x)

dt_matrix有点大（500k元素）并按列组织。此函数按写入方式工作，但(1-x)/x中的“1”应该是apply函数所在列的最小值。如果应用的值为2，并且包含所应用值的列的最小值为1，则apply函数应返回(1-2)/2) = -0.5。

我猜答案很简单，但我无法想出任何答案。

Answer 1

尝试：

 flow.index<-apply(dt_matrix, 2 , function(x) (min(x)-x)/x)