# Hồ Thị Ngọc Trâm
# Lớp: 24NH
# MSSV: 2454020059
# Bài Kiểm tra thực hành
# Nhập liệu
likert=file.choose()
datalikert=read.csv(likert,header=TRUE)
save(datalikert,file="datalikert.rda")
attach(datalikert)
is.data.frame(datalikert)
## [1] TRUE
#câu 16
mreg=(lm(Ftb~Atb+Btb+Ctb))
summary(mreg)
##
## Call:
## lm(formula = Ftb ~ Atb + Btb + Ctb)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.73037 -0.44846 0.09795 0.39376 1.34503
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.76022 0.32504 2.339 0.020361 *
## Atb 0.20139 0.05691 3.539 0.000504 ***
## Btb 0.13162 0.04943 2.663 0.008399 **
## Ctb 0.47633 0.04730 10.070 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.5705 on 194 degrees of freedom
## Multiple R-squared: 0.4128, Adjusted R-squared: 0.4038
## F-statistic: 45.47 on 3 and 194 DF, p-value: < 2.2e-16
op=par(mfrow=c(2,2))
plot(mreg)
#Nhận xét:
#Đồ thị bên trái dòng 1 vẽ phần dư ei và dự báo giá trị F^tbi
#cho thấy các phần dư tập trung xung quanh đường y=0
# nên giả định về giá trị trung bình ei=0 có thể chấp nhận được
#Đồ thị bến phải dòng 2 vẽ phần dư ei và giá trị kỳ vọng dựa vào phân phối chuẩn
# cho thấy giá trị phần dư rất gần đường phân bố chuẩn
# cho nên tuân thủ quy định phân phối chuẩn
#Đồ thị bên trái dòng 2 vẽ căn bậc hai giá trị sai số phân bố chuẩn
#Không có sự khác nhau giữ các giá trị
# cho nên tuân thủ quy định phân phối chuẩn
# Đồ thị bên phải dòng 2 cho thấy không có giá trị vượt quá giới hạn đường ranh giới Cook