如何最小化R中两个时移向量之间的差异

Question

我有两个数据集，其中x和y观察值代表相同的数据，但其中一个在x中略有偏移。此外，y值可能略有不同。

示例：

library(Hmisc)
x_a <- c(-10:10)
y_a <- (x_a^2) + 4

y_b <- jitter(x_a^2 + 2, 20)
x_b <-  Lag(x_a, 2)
plot(x_b, y_b)
points(x_a, y_a, pch = 5)

如何找到x的最佳“移位值”，以最小化两个数据集之间的差异（在这种情况下为2）？