Реализация 1 модели на R