#HO VA TEN : NGUYEN THI HA MY 
#LOP :24NH1
# BAI KIEM TRA THỰC HANH

#Nhap lieu 
likert = file.choose()
datalikert=read.csv(likert,header = TRUE)
save(datalikert,file="datalikert.rda")
attach(datalikert)
is.data.frame(datalikert)
head(datalikert)
dim(datalikert)

#Câu 16 
mreg=lm(Ftb~Atb+Btb+Ctb)
summary(mreg)
op=par(mfrow=c(2,2))
plot(mreg)