[no subject]

>         test[i] <- all(df[,i] < 0)

which is to say, you want to check which columns have ALL negative
values, right?

you could do something like this:

  rep(1,nrow(df))%*%ifelse(df<0,1,0) == nrow(df)

hope this helps.

- peter
************************************************************