直交回帰直線から残差平方和を求めたいです。  
deviance(lm( d[,1] ~ d[,2]
))で線形回帰の残差平方和は求められるようなのですが、直交回帰の場合はどのように求めればよいでしょうか？

直交回帰直線は以下のように求めました。

```

    r <- prcomp( ~ d[,1] + d[,2] )
    slope <- r$rotation[2,1]/r$rotation[1,1]
    intercept <- r$center[2] - slope * r$center[1]
    
```
CC BY-SA 3.0
2017-11-07T07:25:07.560
39366
2021-01-02T15:01:35.130
22885
question
r
直交回帰直線から残差平方和を求める方法
```

    install.packages('deming')
    library(deming)
    
    
    fit <- deming(d[,1] ~ d[,2])
    fit$residuals
    
```
CC BY-SA 3.0
2017-11-08T05:01:36.737
39406
2017-11-10T00:26:46.130
2017-11-10T00:26:46.130
15653
26099
39366
answer