maxWithoutNA Function that returns NA if all elements are NA, and the max value not NA, if not.
maxWithoutNA(x)
vector parameter