How fast calculate ressiduals from egcm fun

[mytarmail]

I am trying to get the ressiduals from this function in a faster way

set.seed(123)
x <- cumsum(rnorm(100))
y <- cumsum(rnorm(100))

L <- egcm(X = x,Y = y)
> tail(L$residuals)
          95         96         97         98         99        100 
-0.8303953  0.9916335  2.2307111  1.4267290  0.7467744 -0.7382645 

but i get different result

 S2 <- coredata(x)
 S1 <- coredata(y)
 L2 <- summary(lm(S2 ~ S1))
 tail(L2$residuals)
      95       96       97       98       99      100 
4.262981 4.067523 6.376610 7.655608 7.296035 6.029337 

how can i get the same result as in egcm??

[ben-brooker]

Closing this issue because this is an issue related to the package itself. Rdocumentation.org acts as a library to present information about all packages on CRAN, bioc and github in a user-friendly way. Consider reaching out to the author of the package! :)