У меня есть вектор с нормально распределенными данными, центрированными вокруг 0, и дополнительно некоторый «шум» слева и справа.Обычно это довольно симметрично.Скажем, это выглядит примерно так:
dataVector <- c(rnorm(30,mean=-15,sd=10),rnorm(200,sd=10),rnorm(30,mean=15,sd=10))
Что я хочу сделать, это оценить, где это нормальное распределение центра "заканчивается", поэтому линия отсечения должна отделить его от остальных.Глядя на график плотности, я могу сделать довольно хорошее предположение, где примерно должно быть это ограничение: 
Я думал о том, где второй производный достигает 0. Но я не знаю, какая функция ядра лежит в основе илидействительно ли он равен нулю для моих значений.
Как я могу оценить отсечение (dataVector)?