1.
> (dane<-read.csv2("E:\\dl.csv"))
> names(dane)<-c("Nr","Data","k1","k2","k3","k4","k5","k6");dane
> dane[1:4,]
Nr Data k1 k2 k3 k4 k5 k6
1 2 03.02.1957 5 10 11 22 25 27
2 3 10.02.1957 18 19 20 26 45 49
3 4 17.02.1957 2 11 14 37 40 45
4 5 24.02.1957 8 10 15 35 39 49
2.
> attach(dane)
> wektor<-c(k1,k2,k3,k4,k5,k6)
> table(wektor)
wektor
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
615 598 591 630 598 620 590 580 606 585 602 557 621 602 613 580 657 626 612 612
21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
654 629 575 659 632 614 642 619 635 595 633 601 604 650 590 625 607 616 608 596
41 42 43 44 45 46 47 48 49
580 632 552 564 626 590 569 546 562
> sort(table(wektor))
wektor
48 43 12 49 44 47 23 8 16 41 10 7 35 46 3 30 40 2 5 32
546 552 557 562 564 569 575 580 580 580 585 590 590 590 591 595 596 598 598 601
11 14 33 9 37 39 19 20 15 26 1 38 28 6 13 36 18 45 22 4
602 602 604 606 607 608 612 612 613 614 615 616 619 620 621 625 626 626 629 630
25 42 31 29 27 34 21 17 24
632 632 633 635 642 650 654 657 659
> wektor<-sort(table(wektor))
> length(wektor)
[1] 49
> wektor[1]
48
546
> wektor[length(wektor)]
24
659
3.
> dane[k1=="1",]
Nr Data k1 k2 k3 k4 k5 k6
10 11 07.04.1957 1 7 13 15 21 39
23 24 14.07.1957 1 11 14 25 44 49
25 26 28.07.1957 1 13 19 21 27 35
28 29 18.08.1957 1 6 17 27 40 44
33 34 22.09.1957 1 15 16 19 47 48
38 39 27.10.1957 1 9 14 27 32 34
41 42 17.11.1957 1 7 9 14 45 48
48 49 12.01.1958 1 24 30 37 47 48
51 52 02.02.1958 1 15 29 30 31 33
52 53 09.02.1958 1 21 22 25 34 47
65 66 18.05.1958 1 2 8 17 28 40
67 68 01.06.1958 1 20 41 42 43 44
74 75 20.07.1958 1 7 17 18 29 33
87 88 19.10.1958 1 2 13 17 37 42
95 96 14.12.1958 1 3 10 34 35 41
Itd.
> dane[k6=="49",]
Nr Data k1 k2 k3 k4 k5 k6
2 3 10.02.1957 18 19 20 26 45 49
4 5 24.02.1957 8 10 15 35 39 49
23 24 14.07.1957 1 11 14 25 44 49
29 30 25.08.1957 8 20 39 41 45 49
42 43 24.11.1957 2 6 18 20 40 49
45 46 15.12.1957 7 12 19 36 42 49
50 51 26.01.1958 12 34 35 43 44 49
54 55 23.02.1958 8 26 28 36 43 49
70 71 22.06.1958 2 14 22 44 48 49
72 73 06.07.1958 10 11 28 38 48 49
79 80 24.08.1958 17 21 27 35 41 49
80 81 31.08.1958 30 31 32 41 46 49
84 85 28.09.1958 12 16 21 28 36 49
88 89 26.10.1958 16 25 31 32 45 49
99 100 11.01.1959 4 19 21 40 42 49
Itd.
4.
> attach(dane)
> dane<-data.frame(dane,razem=k1+k2+k3+k4+k5+k6)
a)
> samasuma<-dane[,c(9)]
> length(table(samasuma))
[1] 198
b)
> min(samasuma)
[1] 35
> max(samasuma)
[1] 263
c)
> table(min(samasuma))
35
1
d)
> dane[razem==min(razem),]
Nr Data k1 k2 k3 k4 k5 k6 razem
4766 4767 07.11.2009 1 2 3 5 7 17 35
> dane[razem==max(razem),]
Nr Data k1 k2 k3 k4 k5 k6 razem
4423 4424 29.08.2007 39 41 43 45 47 48 263
e)
> table(samasuma)
samasuma
35 40 41 43 44 46 51 52 53 57 58 59 60 63 64 65 66 67 68 69
1 1 1 1 1 1 2 1 1 2 2 1 1 1 2 1 2 1 5 3
70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89
1 3 5 3 2 2 2 5 4 6 9 3 7 9 7 14 7 14 8 6
90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109
6 12 17 10 14 15 20 26 16 14 23 23 23 26 24 23 28 24 24 28
110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129
27 31 42 31 37 32 50 31 32 50 40 46 39 51 54 55 40 53 36 45
130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149
54 59 53 50 54 61 52 59 42 62 45 53 47 53 59 57 68 71 64 68
150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169
62 58 57 55 53 66 52 54 57 62 65 46 53 66 45 48 51 44 63 50
170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189
46 46 53 47 55 44 38 55 48 41 28 35 41 48 31 38 29 33 35 23
190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209
30 34 34 28 22 17 13 13 19 25 23 20 16 11 7 9 7 17 16 16
210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229
13 11 6 9 11 4 9 6 8 6 1 7 6 3 8 5 4 5 2 6
230 231 232 233 234 237 238 239 240 241 242 244 246 247 248 250 252 263
3 2 1 1 2 2 1 1 2 1 1 1 1 2 1 1 1 1
> sortowanie<-sort(table(samasuma))
> length(sortowanie)
[1] 198
> sortowanie[length(sortowanie)]
147
71
f)
g)
> summary(samasuma)
Min. 1st Qu. Median Mean 3rd Qu. Max.
35.0 127.0 149.0 149.3 172.0 263.0
h)
> shapiro.test(samasuma)
Shapiro-Wilk normality test
data: samasuma
W = 0.9995, p-value = 0.2584