Добавил:
По своей натуре перфекционист. Поэтому люблю все аккуратно оформлять и упорядочивать, складывать по полочкам. Вот, не пропадать же добру, нажитому за четыре кропотливых семестра. Тут я выложил все мои ответы, курсовые, отчеты и некоторые ДЗ. Они могут вам помочь для получения зачета или сдачи экзамена. Если чего-то не нашли в папочках, то попытайте удачу в разделе НЕОТСОРТИРОВАННОЕ на моей страничке, там все 4 семестра разложены по папкам. ГРУППА КТ-43-15. Годы обучения 2015-2019. Коллекция будет пополняться. Что ж, удачки :З Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
64
Добавлен:
15.09.2017
Размер:
451 б
Скачать
#11,1

bata.coef<-function(x){
+ a<-lm(scale(x[[1]])~scale(x[[2]]))$coefficients
+ return(a)}
> bata.coef(mtcars[,c(1,3)])


#11.2

a<-lm(mtcars[,1]~mtcars[,2])
resid.norm<-function(a){
p<- as.data.frame(a$model)
pv<-shapiro.test(a$residuals)$p.value
if(pv>=0.05){
ggplot(p, aes(x = a$residuals)) +
geom_histogram(fill='green')
} else{ggplot(p, aes(x = a$residuals)) +
geom_histogram(fill='red')
}
}
resid.norm(a)
Соседние файлы в папке R Language лабы (Сковорцов)