分离两个点云以获得更好的线性相关性

Question

我想知道是否存在一种统计方法来分离两个点云，以便具有两个线性关系，具有良好的拟合和更好的相关性

在我的例子中，视觉上两点云的变化点在点5和点6之间，对于每个点云我发现了良好的相关性。

如何根据每个点云的最佳线性相关性来统计证明这两个点云的分离

祝你好运

示例：

    x       y
1   1.73    3.52
2   1.24    3.01
3   0.89    2.52
4   0.43    1.64
5   0.08    1.18
6   -0.18   1.03
7   -0.65   0.96
8   -1.31   0.94
9   -2.30   0.75

Answer 1

以下是使用strucchange包获取可能断点的一种方法：

df <- read.table(header=T, text="    x       y
1   1.73    3.52
2   1.24    3.01
3   0.89    2.52
4   0.43    1.64
5   0.08    1.18
6   -0.18   1.03
7   -0.65   0.96
8   -1.31   0.94
9   -2.30   0.75")
plot(y~x, df)
library(strucchange)
bp <- breakpoints(y~x, data=df, h=3, breaks=1)
abline(v=df$x[bp$breakpoints], col="blue")

请参阅Vignette和Cross Validated了解数学/统计背景。