Sum(..) in apply()

Dear,

I have a set of ascii-grids. For each gridcell I want to count all values
that lie between 15 and 6. 
Therefore I combined the ascii-grids in an array and used 

result<- apply(temp,2,sum((temp <=15)&(temp > 6)), na.rm=TRUE)

But, this doesn`t work. It seems that the combination apply with sum(...) is
not working, since the pure 
apply(object,2,sum) does work.

May you help me want to do here instead?

Thank you very much in forward

Ole