# ten ; Huynh minh phu
# lop:24NH1
# bai kiem tra thuc hanh
#nhap lieu
likert=file.choose()
datalikert=read.csv(likert,header = TRUE)
save(datalikert,file = "datalikert,rda")
attach(datalikert)
is.data.frame(datalikert)
## [1] TRUE
#cau4
GTINHMH=GTINH
GTINHMH=replace(GTINHMH,GTINH==1,"nam")
GTINHMH=replace(GTINHMH,GTINH==2,"nu")
GTcode=data.frame(GTINH,GTINHMH)
GTcode
## GTINH GTINHMH
## 1 2 nu
## 2 2 nu
## 3 2 nu
## 4 1 nam
## 5 2 nu
## 6 1 nam
## 7 1 nam
## 8 1 nam
## 9 2 nu
## 10 1 nam
## 11 1 nam
## 12 1 nam
## 13 2 nu
## 14 1 nam
## 15 2 nu
## 16 1 nam
## 17 1 nam
## 18 1 nam
## 19 2 nu
## 20 1 nam
## 21 1 nam
## 22 1 nam
## 23 1 nam
## 24 1 nam
## 25 1 nam
## 26 1 nam
## 27 1 nam
## 28 1 nam
## 29 1 nam
## 30 2 nu
## 31 2 nu
## 32 2 nu
## 33 1 nam
## 34 2 nu
## 35 2 nu
## 36 2 nu
## 37 1 nam
## 38 2 nu
## 39 1 nam
## 40 1 nam
## 41 1 nam
## 42 2 nu
## 43 1 nam
## 44 2 nu
## 45 1 nam
## 46 1 nam
## 47 2 nu
## 48 1 nam
## 49 2 nu
## 50 2 nu
## 51 1 nam
## 52 2 nu
## 53 2 nu
## 54 1 nam
## 55 2 nu
## 56 2 nu
## 57 1 nam
## 58 2 nu
## 59 2 nu
## 60 2 nu
## 61 2 nu
## 62 2 nu
## 63 2 nu
## 64 2 nu
## 65 2 nu
## 66 1 nam
## 67 1 nam
## 68 2 nu
## 69 2 nu
## 70 2 nu
## 71 2 nu
## 72 2 nu
## 73 2 nu
## 74 1 nam
## 75 2 nu
## 76 2 nu
## 77 2 nu
## 78 2 nu
## 79 1 nam
## 80 2 nu
## 81 2 nu
## 82 2 nu
## 83 1 nam
## 84 2 nu
## 85 1 nam
## 86 1 nam
## 87 1 nam
## 88 2 nu
## 89 1 nam
## 90 2 nu
## 91 1 nam
## 92 1 nam
## 93 2 nu
## 94 1 nam
## 95 2 nu
## 96 2 nu
## 97 1 nam
## 98 2 nu
## 99 2 nu
## 100 1 nam
## 101 2 nu
## 102 2 nu
## 103 1 nam
## 104 1 nam
## 105 1 nam
## 106 1 nam
## 107 1 nam
## 108 1 nam
## 109 2 nu
## 110 1 nam
## 111 2 nu
## 112 1 nam
## 113 2 nu
## 114 2 nu
## 115 1 nam
## 116 2 nu
## 117 1 nam
## 118 1 nam
## 119 1 nam
## 120 1 nam
## 121 1 nam
## 122 1 nam
## 123 1 nam
## 124 1 nam
## 125 1 nam
## 126 1 nam
## 127 1 nam
## 128 1 nam
## 129 1 nam
## 130 1 nam
## 131 2 nu
## 132 2 nu
## 133 1 nam
## 134 1 nam
## 135 2 nu
## 136 2 nu
## 137 1 nam
## 138 2 nu
## 139 1 nam
## 140 1 nam
## 141 2 nu
## 142 1 nam
## 143 2 nu
## 144 1 nam
## 145 1 nam
## 146 1 nam
## 147 1 nam
## 148 1 nam
## 149 1 nam
## 150 1 nam
## 151 1 nam
## 152 1 nam
## 153 1 nam
## 154 1 nam
## 155 1 nam
## 156 1 nam
## 157 1 nam
## 158 1 nam
## 159 1 nam
## 160 1 nam
## 161 1 nam
## 162 1 nam
## 163 1 nam
## 164 2 nu
## 165 2 nu
## 166 1 nam
## 167 2 nu
## 168 1 nam
## 169 1 nam
## 170 1 nam
## 171 1 nam
## 172 2 nu
## 173 1 nam
## 174 2 nu
## 175 1 nam
## 176 2 nu
## 177 1 nam
## 178 1 nam
## 179 1 nam
## 180 2 nu
## 181 1 nam
## 182 1 nam
## 183 2 nu
## 184 2 nu
## 185 1 nam
## 186 1 nam
## 187 1 nam
## 188 2 nu
## 189 1 nam
## 190 1 nam
## 191 1 nam
## 192 1 nam
## 193 1 nam
## 194 1 nam
## 195 1 nam
## 196 1 nam
## 197 1 nam
## 198 1 nam
DTUOIMH=DTUOI
DTUOIMH=replace(DTUOIMH,DTUOI==1,">10 tuoi")
DTOUIMH=replace(DTUOIMH,DTUOI==2,"tu 10-20 tuoi")
DTOUIMH=replace(DTUOIMH,DTUOI==3,"tren 20 tuoi")
DTcode=data.frame(DTUOI,DTOUIMH)
DTcode
## DTUOI DTOUIMH
## 1 1 >10 tuoi
## 2 2 2
## 3 1 >10 tuoi
## 4 2 2
## 5 1 >10 tuoi
## 6 2 2
## 7 1 >10 tuoi
## 8 1 >10 tuoi
## 9 2 2
## 10 1 >10 tuoi
## 11 2 2
## 12 1 >10 tuoi
## 13 2 2
## 14 1 >10 tuoi
## 15 4 4
## 16 3 tren 20 tuoi
## 17 2 2
## 18 1 >10 tuoi
## 19 3 tren 20 tuoi
## 20 4 4
## 21 2 2
## 22 3 tren 20 tuoi
## 23 3 tren 20 tuoi
## 24 4 4
## 25 3 tren 20 tuoi
## 26 2 2
## 27 3 tren 20 tuoi
## 28 1 >10 tuoi
## 29 3 tren 20 tuoi
## 30 3 tren 20 tuoi
## 31 2 2
## 32 3 tren 20 tuoi
## 33 3 tren 20 tuoi
## 34 4 4
## 35 3 tren 20 tuoi
## 36 2 2
## 37 3 tren 20 tuoi
## 38 1 >10 tuoi
## 39 3 tren 20 tuoi
## 40 3 tren 20 tuoi
## 41 2 2
## 42 1 >10 tuoi
## 43 3 tren 20 tuoi
## 44 1 >10 tuoi
## 45 4 4
## 46 2 2
## 47 3 tren 20 tuoi
## 48 1 >10 tuoi
## 49 3 tren 20 tuoi
## 50 4 4
## 51 1 >10 tuoi
## 52 2 2
## 53 1 >10 tuoi
## 54 3 tren 20 tuoi
## 55 4 4
## 56 4 4
## 57 4 4
## 58 3 tren 20 tuoi
## 59 3 tren 20 tuoi
## 60 4 4
## 61 2 2
## 62 4 4
## 63 3 tren 20 tuoi
## 64 3 tren 20 tuoi
## 65 3 tren 20 tuoi
## 66 3 tren 20 tuoi
## 67 3 tren 20 tuoi
## 68 4 4
## 69 3 tren 20 tuoi
## 70 4 4
## 71 2 2
## 72 3 tren 20 tuoi
## 73 3 tren 20 tuoi
## 74 4 4
## 75 3 tren 20 tuoi
## 76 2 2
## 77 4 4
## 78 4 4
## 79 4 4
## 80 3 tren 20 tuoi
## 81 1 >10 tuoi
## 82 2 2
## 83 3 tren 20 tuoi
## 84 3 tren 20 tuoi
## 85 2 2
## 86 3 tren 20 tuoi
## 87 2 2
## 88 1 >10 tuoi
## 89 1 >10 tuoi
## 90 3 tren 20 tuoi
## 91 3 tren 20 tuoi
## 92 1 >10 tuoi
## 93 2 2
## 94 3 tren 20 tuoi
## 95 1 >10 tuoi
## 96 3 tren 20 tuoi
## 97 2 2
## 98 4 4
## 99 4 4
## 100 2 2
## 101 2 2
## 102 2 2
## 103 1 >10 tuoi
## 104 2 2
## 105 2 2
## 106 1 >10 tuoi
## 107 2 2
## 108 2 2
## 109 2 2
## 110 4 4
## 111 3 tren 20 tuoi
## 112 2 2
## 113 3 tren 20 tuoi
## 114 3 tren 20 tuoi
## 115 4 4
## 116 3 tren 20 tuoi
## 117 2 2
## 118 3 tren 20 tuoi
## 119 4 4
## 120 3 tren 20 tuoi
## 121 4 4
## 122 3 tren 20 tuoi
## 123 2 2
## 124 3 tren 20 tuoi
## 125 4 4
## 126 2 2
## 127 4 4
## 128 3 tren 20 tuoi
## 129 2 2
## 130 4 4
## 131 3 tren 20 tuoi
## 132 3 tren 20 tuoi
## 133 2 2
## 134 3 tren 20 tuoi
## 135 3 tren 20 tuoi
## 136 4 4
## 137 2 2
## 138 3 tren 20 tuoi
## 139 3 tren 20 tuoi
## 140 4 4
## 141 3 tren 20 tuoi
## 142 4 4
## 143 3 tren 20 tuoi
## 144 2 2
## 145 3 tren 20 tuoi
## 146 3 tren 20 tuoi
## 147 3 tren 20 tuoi
## 148 4 4
## 149 4 4
## 150 3 tren 20 tuoi
## 151 2 2
## 152 1 >10 tuoi
## 153 3 tren 20 tuoi
## 154 1 >10 tuoi
## 155 3 tren 20 tuoi
## 156 1 >10 tuoi
## 157 2 2
## 158 3 tren 20 tuoi
## 159 1 >10 tuoi
## 160 2 2
## 161 3 tren 20 tuoi
## 162 3 tren 20 tuoi
## 163 1 >10 tuoi
## 164 3 tren 20 tuoi
## 165 2 2
## 166 2 2
## 167 3 tren 20 tuoi
## 168 3 tren 20 tuoi
## 169 2 2
## 170 4 4
## 171 2 2
## 172 4 4
## 173 4 4
## 174 1 >10 tuoi
## 175 1 >10 tuoi
## 176 3 tren 20 tuoi
## 177 3 tren 20 tuoi
## 178 1 >10 tuoi
## 179 3 tren 20 tuoi
## 180 2 2
## 181 2 2
## 182 2 2
## 183 4 4
## 184 4 4
## 185 3 tren 20 tuoi
## 186 1 >10 tuoi
## 187 3 tren 20 tuoi
## 188 1 >10 tuoi
## 189 2 2
## 190 3 tren 20 tuoi
## 191 1 >10 tuoi
## 192 1 >10 tuoi
## 193 2 2
## 194 1 >10 tuoi
## 195 3 tren 20 tuoi
## 196 2 2
## 197 4 4
## 198 4 4
library(gmodels)
CrossTable(GTINHMH,DTUOIMH)
##
##
## Cell Contents
## |-------------------------|
## | N |
## | Chi-square contribution |
## | N / Row Total |
## | N / Col Total |
## | N / Table Total |
## |-------------------------|
##
##
## Total Observations in Table: 198
##
##
## | DTUOIMH
## GTINHMH | >10 tuoi | 2 | 3 | 4 | Row Total |
## -------------|-----------|-----------|-----------|-----------|-----------|
## nam | 24 | 35 | 41 | 21 | 121 |
## | 0.182 | 0.471 | 0.292 | 0.213 | |
## | 0.198 | 0.289 | 0.339 | 0.174 | 0.611 |
## | 0.667 | 0.686 | 0.562 | 0.553 | |
## | 0.121 | 0.177 | 0.207 | 0.106 | |
## -------------|-----------|-----------|-----------|-----------|-----------|
## nu | 12 | 16 | 32 | 17 | 77 |
## | 0.286 | 0.741 | 0.459 | 0.334 | |
## | 0.156 | 0.208 | 0.416 | 0.221 | 0.389 |
## | 0.333 | 0.314 | 0.438 | 0.447 | |
## | 0.061 | 0.081 | 0.162 | 0.086 | |
## -------------|-----------|-----------|-----------|-----------|-----------|
## Column Total | 36 | 51 | 73 | 38 | 198 |
## | 0.182 | 0.258 | 0.369 | 0.192 | |
## -------------|-----------|-----------|-----------|-----------|-----------|
##
##