Dear R helpers:

I wonder how to pass more than one argument to the function called by
lapply.
For example,

#R code below ---------------------------

indf <- data.frame(id=I(c('a','b')),y=c(1,10))
#I want to add an addition argument cutoff into the function called by
lapply.
outside.fun <- function(indf, cutoff)
{
 unlist(lapply(split(indf, indf[,'id']), function(.x, cutoff) {.x[,'y'] <
cutoff} ))
}
#but the next line does not work
outside.fun(indf,3)

#as you expected, hard code cutoff works as below, but I do not like hard
coding.
outside.fun.hardcode.cutoff <- function(indf, cutoff)
{
 unlist(lapply(split(indf, indf[,'id']), function(.x, cutoff) {.x[,'y'] < 3}
))
}
outside.fun.hardcode.cutoff(indf,)

#R code above----------------------------

So, can someone kindly show me how to pass more than one arguments into the
function called by lapply?

Many thanks in advance.

-Sean

	[[alternative HTML version deleted]]


