Zadanie domowe solucja4

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


Wyszukiwarka

Podobne podstrony:
Pierwiastki Zadanie domowe [PDF], Pierwiastki Rozwiązanie zadania domowego
Zadania domowe 9, inżynieria środowiska UKSW, chemia kolokwium 2
zadanie domowe matematyka, scenariusze
Zadanie domowe, ćwiczenia - grammaire
reakcje metali z kwasami wniosek zadanie domowe
współczesna, Różewicz Zadanie domowe
Zadania domowe rozwiązania
Obliczanie pochodnych Zadanie Rozwiazanie zadania domowego id
Asymptoty ekstrema punkty przegiecia szkic zadania domowe
Ekstrema warunkowe Zadanie do Rozwiazanie zadania domowego id
Podstawowe wlasnosci funkcji zadania domowe
Napisz starannie poniższe literki a, zadania domowe napisz starannie literki
Zadanie Domowe 4, Ekonometria, Ekonometria, Egzaminy + Testy, Egzaminy
BEP wieloasortymentowa produkcja rozwiązanie szczególne pomoc do zadania domowego formuły
Napisz starannie poniższe literki e, zadania domowe napisz starannie literki
Krystalografia zadanie domowe z charakterystyki grup przestrzennych
zadanie domowe fizyka 1

więcej podobnych podstron