Advertisement
annstasi

lab3R

Mar 14th, 2022
660
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. T<-read.table("reg.txt", header=TRUE)
  2. T<-T[order(T$A1),] # сортировать строки врегрессии таблице Т по возрастанию F1
  3. regA3A1<-lm(formula=T3$A3 ~T3$A1) # построить регрессию
  4. summary(regA3A1) # вывод информации о построенной
  5.  
  6. format(coef(regA3A1), digits =12) # вывод коэффициентов регрессии с точностью 12 знаков
  7.  
  8. plot(x=T$A1, y=T$A3) # нарисовать диаграмму рассеяния
  9. abline(regA3A1, col="red") # нарисовать линию регрессии
  10. mean(regA3A1$residuals)
  11.  
  12. T3<-T[-which(T$A3>750),c(1,3)]
  13. plot(x=T3$A1, y=T3$A3) # нарисовать диаграмму рассеяния
  14. abline(regA3A1, col="red") # нарисовать линию регрессии
  15. mean(regA3A1$residuals)
  16.  
  17. plot(regA3A1$residuals, main="График остатков", xlab="Номер наблюдения",
  18.      ylab="Остатки")
  19. abline(h=0)
Advertisement
RAW Paste Data Copied
Advertisement