> sum(x, na.rm=!all(is.na(x)))
That's the kind of idiom that brings the poor chap who has to maintain it to tears. ;-) ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.