Как добавить необязательный аргумент в функцию lapply в R

Я использую следующее:

qicout <- matrix(unlist(lapply(X = cand.set, FUN = qic)), length(cand.set), 4, byrow = TRUE)

Это сработало, но я изменил функцию qic, так что теперь у нее есть аргумент

qic(model, small = TRUE)

Я хотел бы настроить приведенную выше функцию lapply, чтобы включить TRUE или FALSE в qic. Эта функция lapply для вычисления qicout на самом деле находится в другой функции, и я хотел бы иметь опцию small = TRUE/FALSE, чтобы ее можно было передать функции qic в lapply. Любые предложения о том, как лучше всего это сделать?


r function lapply
person djhocking    schedule 20.12.2012    source источник

Ответы (1)


arrow_upward
4
arrow_downward

Я думаю:

cout <- matrix(unlist(lapply(X = cand.set, FUN = qic, small = TRUE )), 
    length(cand.set), 4, byrow = TRUE)

должно работать или small = FALSE но я могу не правильно понять.

person Tyler Rinker    schedule 20.12.2012
comment
+1 аналогично для всей семьи - person Anthony Damico; 20.12.2012
comment
Спасибо. Это сработало отлично. Я продолжал пытаться добавить небольшой аргумент в круглые скобки, например FUN = qic(small = FALSE) и тому подобное. - person djhocking; 20.12.2012