Total least squares R package