Я использую mapply, чтобы найти сумму диапазона индексов для всех случаев:
score = mapply(function(x, y, z) sum(df[x, y:z]), seq_len(nrow(df)), df$index, df$index+10)
Как я могу добавить оператор ifelse в mapply, чтобы он применял функцию только в том случае, если df $ index> 5, иначе сумма равна 0?
Это, вероятно, должно работать
mapply(function(x, y, z) if (y > 5) sum(df[x, y:z]) else 0,
seq_len(nrow(df)), df$index, df$index+10)
Или вы можете избежать if/else, умножив на (y > 5), так что index > 5 будет умножено на 1 (TRUE), что даст sum(df[x, y:z]), а index <= 5 будет умножено на 0 (FALSE), что даст 0.
mapply(function(x, y, z) sum(df[x, y:z]) * (y > 5),
seq_len(nrow(df)), df$index, df$index+10)
Просто оберните ifelse и все должно работать
mapply(function(x, y, z) ifelse(y > 5, sum(df[x, y:z]), 0),
seq_len(nrow(df)), df$index, df$index+10)
Лучшим вариантом было бы предварительно назначить на основе значения «индекса» значение 0 для тех «индексов», которые меньше или равны 5. Должно быть более эффективным
i1 <- df$index > 5
score[!i1] <- 0
score[i1] <- mapply(function(x, y, z) sum(df[x, y:z]),
seq_len(nrow(df))[i1], df$index[i1], df$index[i1] + 10)
