Условие:
Напишите функцию resid.norm, которая тестирует распределение остатков от модели на нормальность при помощи функции shapiro.test и создает гистограмму при помощи функции ggplot() с красной заливкой "red", если распределение остатков значимо отличается от нормального (p < 0.05), и с зелёной заливкой "green" - если распределение остатков значимо не отличается от нормального.
На вход функция получает регрессионную модель. Функция возвращает переменную, в которой сохранен график ggplot.
В поле для ответа не нужно создавать никаких дополнительных объектов, только напишите функцию resid.norm.
Пример работы функции:
> fit <- lm(mpg ~ disp, mtcars)
> my_plot <- resid.norm(fit)
> my_plot