r - R中的'if'语句

Question

考虑以下数据：

library(Benchmarking)
x <- c(4,2,4,6,9,2)
y <- c(2,1,5,2,10,4)
k <- c(25,25,25,30,30,30)
d <- data.frame(x,y,k)

现在我想做以下计算：

e1 <- dea(d$x, d$y, XREF = d$x, YREF = d$y)

但我想改变它，所以XREF只YREF考虑ifx中的列。就像是：dk = 25

e1 <- dea(d$x, d$y, XREF = d$x if k = 25, YREF = d$y if k = 25)

但这不起作用。有人可以告诉我如何编码R吗？

标签： rif-statement

Answer 1

with(subset(d, k == 25), dea(d$x, d$y, XREF = x, YREF = y))

其中d$符号使用原始的完整数据，并直接x引用y来自subset.