是否有一种优雅的方法来估计一种正态分布矢量的截止值？

Question

我有一个向量，向量的正态分布中心为0，左右两侧还有一些“噪声”。通常这很对称。假设它看起来像这样：

dataVector <- c(rnorm(30,mean=-15,sd=10),rnorm(200,sd=10),rnorm(30,mean=15,sd=10))

我想做的是估计中心正态分布在哪里“终止”，因此截止线应将其与其余部分分开。查看密度图，我可以很好地猜测出该截止点应该大致在哪里：

我在考虑第二个导数到达0的位置。但是我不知道底层内核函数或它的值实际上是否为零。

我该如何估计临界值（dataVector）？