lab3R

T<-read.table("reg.txt", header=TRUE)
T<-T[order(T$A1),] # сортировать строки врегрессии таблице Т по возрастанию F1
regA3A1<-lm(formula=T3$A3 ~T3$A1) # построить регрессию
summary(regA3A1) # вывод информации о построенной

format(coef(regA3A1), digits =12) # вывод коэффициентов регрессии с точностью 12 знаков

plot(x=T$A1, y=T$A3) # нарисовать диаграмму рассеяния
abline(regA3A1, col="red") # нарисовать линию регрессии
mean(regA3A1$residuals)

T3<-T[-which(T$A3>750),c(1,3)]
plot(x=T3$A1, y=T3$A3) # нарисовать диаграмму рассеяния
abline(regA3A1, col="red") # нарисовать линию регрессии
mean(regA3A1$residuals)

plot(regA3A1$residuals, main="График остатков", xlab="Номер наблюдения",
     ylab="Остатки")
abline(h=0)