Я борюсь с очисткой своих данных.У меня есть большое количество кривых отражения, которые становятся очень шумными при перемещении от центра к углам.Площадь от 1000 до 1950 нм, как правило, очень чистая, но с 1000 до 350, а с 1950 до 2500 я получаю повышенный уровень шума.Вот пример пары кривых: 
Я пробовал ряд различных методов сглаживания, таких как loeless, Скользящее среднее и SavinzkyGolay, но проблема в том, что если я пытаюсь увеличитькоэффициенты сглаживания для сглаживания шумной части, также влияет на чистую часть.
Это лучший результат, который я получил до сих пор: 
Как вы можете видеть, шумная часть отсутствует.пока не гладко.Однако дальнейшее сглаживание сгладит и центральную часть.
Есть ли в R пакет, который сможет избавиться от шума только локально, чтобы получить что-то подобное?
Это подмножество моих данных .Извините, даже одна единственная кривая - это много точек, поэтому я не мог разместить ее здесь другим способом!