[R] unexpected 'else' in " else"

[Jinsong Zhao]

Hi there,

The following code would cause R error:

 > w <- 1:5
 > r <- 1:5
 >         if (is.matrix(r))
+             r[w != 0, , drop = FALSE]
 >         else r[w != 0]
Error: unexpected 'else' in "        else"

However, the code:
         if (is.matrix(r))
             r[w != 0, , drop = FALSE]
         else r[w != 0]
is extracted from stats::weighted.residuals.

My question is why the code in the function does not cause error?

Best,
Jinsong