Подгонка нелинейной кривой в R с использованием мозаики и nls