отправить несколько аргументов, используя функцию apply

Question

Привет Я пытаюсь использовать apply на матрице, которую я называю eq; То, что мне нравится делать, это отправить функцию, которую я сделал с несколькими аргументами. В настоящее время, когда я делаю это работает:

apply(eq, 1, manydo2) 

manydo2 <-function(x){ # do something with the vector x } 

Однако, когда я пытаюсь что-то вроде этого

apply(list("x1"=eq, "r1" = 18), 1, manydo2) 

он терпит неудачу, есть в любом случае я могу передать данные строки, а также какой-либо другой переменной сказать r1 в Это дело? много спасибо.

Answer 1

Предполагая, что вы хотите передать строку и один аргумент, который является одинаковым для каждой строки:

manydo3 <- function(x, r1) NULL 
apply(eq, 1, manydo3, r1=18) 

Если вы хотите различные значения для второго аргумента для каждой строки, то вы хотите разделить ваши матрицы в строках и проходят обе строки и ваш другой аргумент с mapply:

mapply(manydo3, split(eq, row(eq)), R) 

где length(R) == nrow(eq) (т.е. R содержит R1, r2, и т.д.).