one 'if condition' in the spls function is hanging

[Florian Rohart]

line 324 in the regression mode:

      if (TRUE)                       #!?!?
        {#na.Y
            Y.aux = Y.temp
            Y.aux[is.na.Y] = 0
            d = crossprod(Y.aux, t)
            T = drop(t) %o% q.ones
            T[is.na.Y] = 0
            t.norm = crossprod(T)               
            d = d / diag(t.norm)
        }else{
            d = crossprod(Y.temp, t) / drop(crossprod(t))
        }

[Florian Rohart]

replaced if(TRUE) by if(na.Y)