Apply a function with multiple argument on each column of matrix

Hi there !!
I have a function like
fun <- function(x,y)
{
loe<-loess(y ~ x,span=0.9,family="gaussian")
pre<-predict(loe,data.frame(x=x))
return(pre)
}

Now i have defined :
x<-1:500

y<-matrix(rnorm(1000,3),ncol=2)

I can manipulate fun(x,y[,1]) .
But i want to apply the function on each column of matrix y .

Any suggestion will be appreciated .
Thanks .


Best regards


...........................
Tanvir Ahamed
G?teborg, Sweden
	[[alternative HTML version deleted]]