TRƯỜNG ĐẠI HỌC KHOA HỌC TỰ NHIÊN KHOA CÔNG NGHỆ THÔNG TIN MÔN HỌC: XÁC SUẤT THỐNG KÊ CHUYÊN SÂU THỰC NGHIỆM THỐNG KÊ MÔ TẢ BẰNG NGÔN NGỮ R GVHD: PGS.TS ĐINH NGỌC THANH HV: LƯƠNG MINH LIÊM PHA - 17C12014 KHÓA: 2017-2019 TPHCM, 07/2018 MỤC LỤC GIỚI THIỆU VỀ BỘ DỮ LIỆU CHỈ SỐ IQ 1.1 Bộ liệu số IQ câu lạc toán học 1.2 Nạp hiển thị liệu: CÁC THAM SỐ THỐNG KÊ MÔ TẢ 2.1 Bảng tần số, tần suất trường liệu 2.2 Đo lường khuynh hướng trung tâm 2.2.1 Giá trị trung bình số IQ 2.2.2 Giá trị trung vị số IQ 2.2.3 Giá trị mode số IQ 2.3 2.3.1 Phương sai số IQ 2.3.2 Độ lệch chuẩn số IQ 2.4 Đo lường mức độ phân tán Các thước đo vị trí tương đối 2.4.1 Khoảng phân vị số IQ 2.4.2 Khoảng biến thiên số IQ CÁC BIỂU ĐỒ, ĐỒ THỊ MÔ TẢ 3.1 Biểu đồ tần số, tần suất số IQ 3.2 Biểu đồ hộp số IQ 3.3 Biều đồ hình quạt lớp trí tuệ số IQ 10 3.4 Biểu đồ phân loại trí tuệ số IQ 13 3.5 Đồ thị cành số IQ 13 THỐNG KÊ GIỮA NAM VÀ NỮ 14 4.1 Thống kê xem nhóm có trí thơng minh cao 14 4.2 Kiểm định t-test 15 BỘ DỮ LIỆU VỀ CHIỀU CAO CỦA 10 ĐỨA TRẺ THEO THÁNG TUỔI 16 5.1 Nạp đọc liệu: 16 5.2 Đồ thị phân tán chiều cao tháng tuổi 16 5.3 Đường biểu diễn tương quan chiều cao tháng tuổi 17 TÀI LIỆU THAM KHẢO 18 GIỚI THIỆU VỀ BỘ DỮ LIỆU CHỈ SỐ IQ 1.1 Bộ liệu số IQ câu lạc toán học Bộ liệu thu thập gồm số IQ 100 người câu lạc toán học với trường: STT, ChiSoIQ, GioiTinh Số thứ tự STT ChiSoIQ GioiTinh 1.2 Tên cột Ý nghĩa Số thứ tự người khảo sát Chỉ số IQ người khảo sát Giới tính người khảo sát Nạp hiển thị liệu: Thiết lập thư mục làm việc vào đường dẫn D:/BAITAP > #Thiet lap thu muc lam viec > setwd("D:/BAITAP") Đọc liệu chisoIQ.csv lưu vào biến data hiển thị liệu > #Doc va hien thi du lieu > data data STT ChiSoIQ GioiTinh 115 Nu 113 Nam 110 Nu 100 Nam 125 Nam 125 Nam 116 Nam 117 Nu 118 Nam 10 111 Nam 11 99 Nam 12 121 Nam 13 115 Nu 14 110 Nu 15 100 Nam 16 100 Nu 17 119 Nam 18 121 Nu 19 105 Nam 20 108 Nu 21 109 Nu 22 113 Nam 23 110 Nam 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 115 116 125 107 115 119 116 125 95 114 109 108 116 115 123 90 92 116 114 115 113 112 117 101 105 109 108 103 121 145 111 94 96 94 115 116 100 101 103 104 105 114 119 121 109 108 116 110 130 140 145 120 105 120 124 150 104 Nam Nam Nam Nu Nam Nu Nam Nam Nu Nam Nu Nam Nam Nam Nam Nam Nam Nam Nam Nu Nam Nam Nu Nam Nu Nam Nam Nam Nu Nam Nu Nam Nu Nam Nam Nu Nam Nu Nam Nam Nam Nu Nam Nu Nam Nam Nam Nam Nam Nu Nam Nu Nam Nam Nam Nam Nam 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 95 99 138 142 126 131 127 122 133 144 99 92 141 146 115 118 112 150 135 116 Nam Nam Nam Nam Nam Nam Nu Nam Nam Nu Nam Nu Nam Nam Nam Nu Nam Nam Nu Nam Lưu nạp lại liệu cho lần sử dụng > > > > # Luu du lieu save(data,file="data.rda") # Nap lai du lieu data vao R load("data.rda") Truy cập nội dung biến khung liệu trực tiếp tên biến nhờ vào hàm attach > #truy cap truc tiep > attach(data) CÁC THAM SỐ THỐNG KÊ MÔ TẢ 2.1 Bảng tần số, tần suất trường liệu Bảng tần số số IQ > table(ChiSoIQ) ChiSoIQ 90 92 94 95 96 99 100 101 103 104 105 107 108 109 110 111 112 113 114 2 2 4 4 2 3 115 116 117 118 119 120 121 122 123 124 125 126 127 130 131 133 135 138 140 8 2 1 1 1 1 1 141 142 144 145 146 150 1 2 Bảng tần suất số IQ > tableChiSoIQ prop.table(tableChiSoIQ) ChiSoIQ 90 92 94 95 96 99 100 101 103 104 105 107 108 109 110 0.01 0.02 0.02 0.02 0.01 0.03 0.04 0.02 0.02 0.02 0.04 0.01 0.04 0.04 0.04 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 0.02 0.02 0.03 0.03 0.08 0.08 0.02 0.02 0.03 0.02 0.04 0.01 0.01 0.01 0.04 126 127 130 131 133 135 138 140 141 142 144 145 146 150 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.02 0.01 0.02 Bảng tần số giới tính > table(GioiTinh) GioiTinh Nam Nu 70 30 Bảng tần suất giới tính > tableGioiTinh prop.table(tableGioiTinh) GioiTinh Nam Nu 0.7 0.3 2.2 2.2.1 Đo lường khuynh hướng trung tâm Giá trị trung bình số IQ > mean(ChiSoIQ) [1] 115.14 Chỉ số IQ trung bình câu lạc 115.4 2.2.2 Giá trị trung vị số IQ > median(ChiSoIQ) [1] 115 Vị trí trung tâm số IQ 115, nghĩa khơng có q 50% liệu số IQ nhỏ 115 khơng có q 50% liệu số IQ lớn 115 2.2.3 Giá trị mode số IQ Giá trị IQ có tần số cao nhất: > max(table(ChiSoIQ)) [1] Vị trí có tần số cao nhất: > which(table(ChiSoIQ)==8) 115 116 20 21 Kết cho thấy giá trị mode (giá trị số IQ mà có tần số cao nhất) 115 116 vị trí thứ 20, 21 bảng tần số 2.3 2.3.1 Đo lường mức độ phân tán Phương sai số IQ > var(ChiSoIQ) [1] 184.1822 Kết cho thấy phương sai số IQ 184.1822 2.3.2 Độ lệch chuẩn số IQ > sd(ChiSoIQ) [1] 13.57138 Kết cho thấy độ lệch chuẩn số IQ 13.57138 2.4 2.4.1 Các thước đo vị trí tương đối Khoảng phân vị số IQ Khoảng phân vị mặc định hàm quantile: > quantile(ChiSoIQ) 0% 25% 50% 75% 100% 90.0 106.5 115.0 121.0 150.0 Từ kết cho thấy - Khơng có người có IQ nhỏ 90 - Khoảng 25% người có IQ nhỏ 106.5 75% người có IQ cao 106.5 - Khoảng 50% người có IQ nhỏ 115 50% người có IQ cao 115 - Khoảng 75% người có IQ nhỏ 121và 25% người có IQ cao 121 - 100% người có IQ nhỏ 150 Khoảng phân vị > quantile(ChiSoIQ,0.9) 90% 135.3 Từ kết cho thấy 90% số người có IQ nhỏ 135.3 2.4.2 Khoảng biến thiên số IQ > max(ChiSoIQ) [1] 150 Chỉ số IQ cao nhât 150 > min(ChiSoIQ) [1] 90 Chỉ số IQ thấp 90 > range(ChiSoIQ) [1] 90 150 Chỉ số IQ nằm từ 90 đến 150 > range(ChiSoIQ)[2]-range(ChiSoIQ)[1] [1] 60 Chỉ số IQ cao lớn số IQ thấp 60 > summary(ChiSoIQ) Min 1st Qu Median 90.0 106.5 115.0 Mean 3rd Qu 115.1 121.0 Max 150.0 Tóm lại từ lệnh summary thấy thơng kê mô tả tần số liệu bao gồm : giá trị nhỏ nhất, tứ phân vị thứ nhất, trung vị median, giá trị trung bình mean, tứ phân vị thứ ba giá trị lớn Kết cho thấy độ trải liệu số IQ từ tứ phân vị thứ đến tứ phân vị thứ 106.5 đến 121 CÁC BIỂU ĐỒ, ĐỒ THỊ MÔ TẢ 3.1 Biểu đồ tần số, tần suất số IQ Biểu đồ tần số số IQ với 10 > hist(ChiSoIQ, breaks=10, col="blue", border = "white", xlab = "Chỉ số IQ", ylab = "Số lượng người", main = "Biểu đồ phân bố số IQ") Biểu đồ tần số số IQ với 30 > hist(ChiSoIQ, breaks=30, col="blue", border = "white", xlab = "Chỉ số IQ", ylab = "Số lượng người", main = "Biểu đồ phân bố số IQ") Biểu đồ tần suất số IQ với 30 > hist(ChiSoIQ, freq = FALSE, breaks=30, col="blue", border = "white", xlab = "Chỉ số IQ", ylab = "Tần suất", main = "Biểu đồ tần suất số IQ") 3.2 Biểu đồ hộp số IQ > boxplot(ChiSoIQ, col="blue", xlab="Chỉ số IQ", main="Biểu đồ hộp Chỉ số IQ") 3.3 Biều đồ hình quạt lớp trí tuệ số IQ Qui định trí tuệ với mức IQ sau: - Người bình thường: từ 85 stem(ChiSoIQ) The decimal point is digit(s) to the right of the | | 02244556999 10 11 12 13 14 15 | | | | | | 00001133445555788889999 0000112233344455555555666666667788999 001111234555567 01358 0124556 00 THỐNG KÊ GIỮA NAM VÀ NỮ 4.1 Thống kê xem nhóm có trí thơng minh cao Với qui định trí người thơng minh có IQ >=116 Lập bảng thống kê tần số, tần suất: > data01 data01$thongminh[data01$ChiSoIQ>=116] data01$thongminh[data01$ChiSoIQ tableNamPercent pie(tableNam, labels = tableNamPercent, main="Ty le thong minh cua Nam",co l=rainbow(length(tableNam))) > legend("topright", c("Thong minh (>=116)","Khong thong minh (=116)","Khong thong minh (