r - 分离结之间的 B 样条并比较每件的拟合优度

Question

我正在研究一些 B 样条回归（一级，单结，不是很复杂），并且想比较内部结之前和之后部分的参数估计值。

现在我有这样的事情：

fit <- lm(y ~ bs(x, degree = 1, knots = 20), data = bar)

然后fit有截距估计和两组参数估计。

我有兴趣将这两个参数集与另一个参数集进行比较 - 有人知道划分bs模型对象或提取这两个子模型吗？或者，将 F 值转换为 R 中的 ap 值，以便我可以手动进行这些测试。