function in tapply

["Manoel Pacheco" <mpacheco@glec.com>]

My simple function

    myout <- function(x,y) { out <- outer(x,y,"/") ; out[lower.tri(out)] }

works fine in the command line, but when I insert it in

    tapply(a, b, function(x,y) { out <- outer(x,y,"/") ;
out[lower.tri(out)] } )

I get an error message:

Problem in FUN(...X.sub.i....): argument "y" is missing with no default
Use traceback() to see the call stack

I would appreciate suggestions on how to solve this problem.

    Thanks,
                    Manolo