Q. Which of the following R code can be used to avoid numeric problems such as taking the logarithm of a negative number?

• (A) if( any(x < 0) ) y <- log(1+x) else y <- log(x)
• (B) if( any(x <= 0) ) y <- log(1+x) else y <- log(x)
• (C) if( any(x >= 0) ) y <- log(1+x) else y <- log(x)
• (D) if( any(x >> 0) ) x >- log(1+x) else x <- log(x)