[R] Sum function and missing values --- need to mimic SAS sum function

[Boris Steipe]

> 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.

;-)