R-离散值的识别点

Question

我想在函数第一次达到阈值时获得一个“ y”值。

fit6 <- lm( y~ns(x, 7) )

我计算了一个要获得“ x”值的阈值（y值）。

我尝试了这个min(which(fit6 > treshold))，但返回了：

Error in which(fit6 > treshold) : 
 (list) object cannot be coerced to type 'double'

有什么想法吗？