Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/64.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/email/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何计算R中的总最小二乘?(正交回归)_R_Regression - Fatal编程技术网

如何计算R中的总最小二乘?(正交回归)

如何计算R中的总最小二乘?(正交回归),r,regression,R,Regression,我没有找到计算正交回归(TLS-总最小二乘)的函数 有这种功能的软件包吗 更新:我的意思是对称地计算每个点的距离,而不是像lm()那样不对称地计算。两个答案: rgr包中的gx.rma似乎就是这样做的 布莱恩·里普利给了我一个机会。基本上,你在寻找PCA,他建议princomp。我也是 您可能需要考虑包 MeMCOP []中的 DEMIN()/代码>函数。该软件包还包含了Deming回归背后理论的详细推导 以下对R存档的搜索也提供了大量选项: 您在CrossValidated、here和

我没有找到计算正交回归(TLS-总最小二乘)的函数

有这种功能的软件包吗

更新:我的意思是对称地计算每个点的距离,而不是像
lm()
那样不对称地计算。

两个答案:

  • rgr
    包中的
    gx.rma
    似乎就是这样做的
  • 布莱恩·里普利给了我一个机会。基本上,你在寻找PCA,他建议princomp。我也是

  • 您可能需要考虑包<强> MeMCOP []中的<代码> DEMIN()/代码>函数。该软件包还包含了Deming回归背后理论的详细推导

    以下对R存档的搜索也提供了大量选项:


    您在CrossValidated、here和R-Help上的多个问题意味着您需要做更多的工作来准确描述您想要做什么,因为术语“总体最小二乘法”和“正交回归法”对实际需要的技术有一定程度的模糊性。

    我从这个url获得了以下解决方案:


    r对于再次遇到这个问题的任何人,现在都有一个专门的包“onls”用于此目的。它与nls软件包(实现普通最小二乘算法)的处理方式类似。

    我认为Ripley响应的适用性取决于@Dail通过总最小二乘和正交回归的含义。里普利确实证实了他的回答…@Gavin,没错。里普利还暗示,提问者对TLS或PCA都没有掌握。对于错误(或正确)的问题/问题,它是否是正确(或错误)的解决方案是一个悬而未决的问题。在stats.SE上提供您先前问题的链接是公平的,例如,因为您已经在那里获得了一些线索。您好,如果提供的链接曾经失效,这个答案将不会有帮助。你会考虑使用AN来提供相关的细节,连同链接作为参考吗?
       r <- prcomp( ~ x + y )
       slope <- r$rotation[2,1] / r$rotation[1,1]
       intercept <- r$center[2] - slope*r$center[1]