Помогите пожалуйста с задачей

[Kris111]

Напишите функцию is.no.effect, которая проверяет, имеет ли смысл линейная регрессия на переданных ей данных.

is.no.effect принимает на вход формулу f (объект класса formula) и данные data (объект класса data.frame). Функция должна проверить гипотезу о незначимости линейной регрессии по формуле f на данных data. Если гипотеза о незначимости линейной регрессии отвергается для всех уровней значимости не меньше 0.05, то функция должна вернуть FALSE, иначе – TRUE.

Гарантируется, что формула подходит к данным и что модель, задаваемая формулой, является линейной регрессионной моделью (то есть что создание линейной регрессионной модели стандартным способом выполнится без ошибок).

Примеры работы функции:

> library(dplyr)
> set.seed(13)
> is.no.effect(x ~ ., data_frame(
+ y = rnorm(100),
+ z = rnorm(100),
+ x = y + 2 * z + rnorm(100, sd = sd(y + 2 * z))
+ ))
[1] FALSE
> library(dplyr)
> set.seed(13)
> is.no.effect(x ~ ., data_frame(
+ y = rnorm(100),
+ z = rnorm(100),
+ x = y + 2 * z + rnorm(100, sd = 5 * sd(y + 2 * z))
+ ))
[1] TRUE

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.