<p>Not sure there's a package but there's some code available here:</p>

<p><a href="http://r.789695.n4.nabble.com/Total-least-squares-linear-regression-td1475960.html" rel="nofollow">http://r.789695.n4.nabble.com/Total-least-squares-linear-regression-td1475960.html</a></p>

<p>You could also likely do a fairly inefficient search by using one of R's various and powerful optimization packages.  Since from this article <a href="http://arxiv.org/PS_cache/math/pdf/9805/9805076v1.pdf" rel="nofollow">http://arxiv.org/PS_cache/math/pdf/9805/9805076v1.pdf</a> it appears that the centroid always runs through the best fit line, you'd just be searching to find the angle that minimizes the sum of the squared Euclidian distances.  Shouldn't be too hard, but that just gets you the fit not any diagnostics on the fit.</p>
Total Least Square method using R
<blockquote>
  <p><strong>Possible Duplicate:</strong><br>
  <a href="https://stackoverflow.com/questions/6872928/how-to-calculate-total-least-squares-in-r-orthogonal-regression">How to calculate Total least squares in R? (Orthogonal regression)</a>  </p>
</blockquote>



<p>I have to implement Total Least Squares model in R instead of lm() (linear regression)</p>

<p>Who don't understand what I mean, this link maybe be useful: <a href="http://en.wikipedia.org/wiki/Total_least_squares" rel="nofollow noreferrer">http://en.wikipedia.org/wiki/Total_least_squares</a></p>

<p>Is there a R function for this kind of regression model?</p>