Kiểm định ttest

Yêu cầu của dự án

Ta có lớp:

• 10A2 là lớp Đối chứng

• 10A3 là lớp thực nghiệm

Câu hỏi: Có sự hiệu quả của phương pháp dạy học mới hay không ? ( Nói theo phong cách thống kê là có sự khác biệt nhau về điểm giữa 2 lớp Đối chứng và Thực nghiệm hay không ?)

1. Kết nối dữ liệu

dulieu <-read.csv("http://solieu.vip/csv/datat10.2.20.csv")
attach(dulieu)
ghichu <-data.frame(NOTE)
x<-dulieu$NOTE[2]
y<-dulieu$NOTE[3]
ghichu <-na.omit(ghichu)
head(dulieu)

##   ï..STT                        HTEN DIEM  LOP            LOAI THUCNGHIEM
## 1      1                 CAO KIM ANH  7.5 10A3 Thực Nghiệm        7.5
## 2      2  NGHIÊM Ä\220ÃŒNH THẾ BẢO  7.0 10A3 Thá»±c Nghiệm        7.0
## 3      3              NGÔ GIA BẢO  5.5 10A3 Thực Nghiệm        5.5
## 4      4 NGUYỄN THÚY NGỌC CHÂU  8.5 10A3 Thực Nghiệm        8.5
## 5      5         NGUYỄN TIỂU DUY  9.5 10A3 Thực Nghiệm        9.5
## 6      6 HUỲNH THỊ THÃ\231Y DƯƠNG  6.0 10A3 Thá»±c Nghiệm        6.0
##   DOICHUNG                  SAPXEP C1 C2 C3 C4 C5 C6 C7
## 1      9.0  Hoàn toàn đồng ý 40 38 36 35 39 41 42
## 2      6.0 Ä\220ồng ý má»\231t phần  3  5  6  6  4  2  1
## 3      8.5       Không đồng ý  0  0  1  2  0  0  0
## 4      7.5                         NA NA NA NA NA NA NA
## 5      8.0                         NA NA NA NA NA NA NA
## 6      5.5                         NA NA NA NA NA NA NA
##                                             NOTE
## 1                       Ä\220iểm của há»\215c sinh
## 2 Lớp đối chứng và Lớp thực nghiệm
## 3                                   Tần suất
## 4                           Thang đo điểm 10
## 5                                               
## 6

2. Vẽ đồ thị

2.1 Đồ thị boxplot

library(ggplot2)
ggplot() + geom_boxplot(data=dulieu,aes(x=LOP,y=DIEM,fill=LOP)) +
  labs(x=dulieu$NOTE[2],y=dulieu$NOTE[3])

Qua đồ thị boxplot trên ta dễ dàng nhận thấy rằng, lớp đối chứng có điểm trung bình là 6 còn lớp thực nghiệm có điểm trung bình là 7. Đây là một sự khác biệt đáng kể của 2 phương pháp dạy học. Trong lớp đối chứng (10A2) có sự biến động cao của của các bạn có điểm trên trung bình (6 điểm), còn lại trong lớp thực nghiệm (10A3) thì lại có sự biến động điểm cao của các bạn dưới trung bình (7 điểm) - còn các bạn trên trung bình tương đối là ổn định.

2.2 Vẽ đồ thị phân tán

ggplot()+ geom_point(data=dulieu,aes(x=LOP,y=DIEM,col=LOP, size=DIEM)) 

3. Kiểm định dữ liệu có phân phối chuẩn

3.1 Xem bằng đồ thị histogram

hist(DIEM, col=3)

Nhìn đồ thị histogram trên cũng có thể cho chúng ta dễ dàng nhận thấy là dữ liệu có phân phối chuẩn

3.2 Kiểm định bằng kiểm định Shapiro

shapiro.test(DIEM)

## 
##  Shapiro-Wilk normality test
## 
## data:  DIEM
## W = 0.96513, p-value = 0.02015

Ta có P-value < 0.05 => Dữ liệu có phân phối chuẩn ( Kết quả giống như nhìn đồ Thị Histogram)

4. Kiểm định T-TEST

t.test(DIEM~LOP)

## 
##  Welch Two Sample t-test
## 
## data:  DIEM by LOP
## t = -2.977, df = 83.987, p-value = 0.003802
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -1.3382657 -0.2663855
## sample estimates:
## mean in group 10A2 mean in group 10A3 
##           6.151163           6.953488

Đặt giả thuyết:

• H0: Không có sự khác biệt điểm của hai lớp đối chứng và thực nghiệm

• H1: Có sự khác biệt về điểm của 2 lớp đối chứng và thực nghiệm

Ta có p-value < 0.05, ta bác bỏ H0 chấp nhận H1, tức là có sự khác biệt đáng kể về điểm của 2 lớp Thực nghiệm và Đối chứng.Hay nói cách khác là phương pháp dạy học mới có hiệu quả cao hơn phương pháp dạy học cũ./.