Untitled

hoiquy <- function(data, x, y) {
  model <- lm(formula = paste(y, "~", x), data = data)
  summary(model)
  return(summary(model)) 
  # Kiểm định tương quan
  cor.test(data, x)
  # Một số đồ thị trong phân tích tương quan
  raqMatrix <- cor(data %>% select(y, x))
 # Tìm dộ tin cậy 95%
  confint(model) 
  re <- resid(model)
  # Giả thiết 1: Sai số ngẫu nhiên có phân phối chuẩn
  shapiro.test(re)
  # Giả thiết 2: Kỳ vọng của sai số ngẫu nhiên tại mỗi giá trị bằng 0
  t.test(re, mu = 0)
  # Giả thiết 3: Phương sai của sai số ngẫu nhiên không đổi
  ncvTest(model)
  
}