> 1+1 [1] 2 > 3+4 [1] 7 > 45/5 [1] 9 > 45*5 [1] 225 > 3^2 [1] 9 > wzrost<-c(170,160,165,165,168,174,164,184,181,182) > wzrost [1] 170 160 165 165 168 174 164 184 181 182 > wzrost# wywietlnie obiektu [1] 170 160 165 165 168 174 164 184 181 182 > length(wzrost) [1] 10 > length(wzrost)dugo obiektu Error: unexpected symbol in "length(wzrost)dugo" > mean(wzrost) [1] 171.3 > mean(wzrost)#redni wzrost [1] 171.3 > #zapiszemy warto redniego wzrostu w obiekcie rednia > rednia<-min(wzrost) > obiekt Error: object 'obiekt' not found > rednia [1] 160 > #wyznaczymy odchylenia wzrostu od redniej > wzrost-rednia [1] 10 0 5 5 8 14 4 24 21 22 > #obliczymy kwadraty odchyle wzrostu od redniej > (wzrost-rednia)^2 [1] 100 0 25 25 64 196 16 576 441 484 > obliczymy sume kwadratw odchyle od redniej Error: unexpected symbol in "obliczymy sume" > sum((wzrost-rednia).^2) Error: unexpected symbol in "sum((wzrost-rednia)." > sum((wzrost-rednia)^2) [1] 1927 > #zapiszemy powysza sume w obiekcie o nazwie suma.kwadratw > suma.kwadratw<-sum((wzrost-rednia)^2) > suma.kwadratw [1] 1927 > #wyznaczymy wariancj wzrostu > suma.kwadratw/length(wzrost) [1] 192.7 > #utworzy obiekt o nazwie wariancja > wariancja<-suma.kwadratw/length(wzrost) > wariancja [1] 192.7 > #wyznaczymy odchylenie standardowe(pierwiastek z wariancji) > sqrt(wariancja) [1] 13.88164 > #uyjemy gotowej funkcji do wyznaczenia wariancji > var(wzrost) [1] 72.23333 > suma.kwadratw/9 [1] 214.1111 > suma.kwadratw [1] 1927 > <-suma.kwadratw Error: unexpected assignment in "<-" > suma.kwadratw<-sum((wzrost-rednia)^2) > suma.kwadratw [1] 1927 > wzrost-rednia [1] 10 0 5 5 8 14 4 24 21 22 > #policzy pierwiastek z wariancji > sqrt(var(wzrost)) [1] 8.49902 > #uyjemy gotowej funkcji do wyznaczenia odchylenia stnadardowego > sd(wzrost) [1] 8.49902 > #posortujemy dane o wzrocie niemalejco > sort(wzrost) [1] 160 164 165 165 168 170 174 181 182 184 > #posortujemy dane o wzrocie nierosnco > sort(wzrost, decreasing=TRUE) [1] 184 182 181 174 170 168 165 165 164 160 > sort(wzrost) [1] 160 164 165 165 168 170 174 181 182 184 > #wyznaczy mediane wzrostu > (168+170)/2 [1] 169 > #uyjemy gotowej funkcji do wyznaczenia mediany > median(wzrost) [1] 169 > #wyznaczy pierwszy kwartyl wzrostu > quantile(x=wzrost,probs=0.25) 25% 165 > quantile(x=wzrost,props=0.25) 0% 25% 50% 75% 100% 160.00 165.00 169.00 179.25 184.00 > #wyznaczymy wszystkie kwartyle (1,2,3) > quantile(wzrost) 0% 25% 50% 75% 100% 160.00 165.00 169.00 179.25 184.00 > #zapoznamy si z pomoc na temat funkcji quantile > help(quantile + help(quantile) Error: unexpected symbol in: "help(quantile help" > help(quantile) starting httpd help server ... done > #narysujemy wykres odyga licie > stem(zrost) Error in stem(zrost) : object 'zrost' not found > stem(wzrost) The decimal point is 1 digit(s) to the right of the | 16 | 04 16 | 558 17 | 04 17 | 18 | 124 > stem(wzrost)scale=o.5 Error: unexpected symbol in "stem(wzrost)scale" > stem(wzrost)scale=0.5 Error: unexpected symbol in "stem(wzrost)scale" > stem(wzrost,scale=0.5) The decimal point is 1 digit(s) to the right of the | 16 | 04558 17 | 04 18 | 124 > #wybr element wektora > #wybr elemenw wektora > #konstrukcja [] > #wywietli pierwszy element wektora(wzrost) > wzrost[1] [1] 170 > wzrost[7] [1] 164 > #wtwietli pierwszy i trzeci element > wzrsot[c(1,3)] Error: object 'wzrsot' not found > wzrost[c(1,3)] [1] 170 165 > #wywietli 10 i 9 element > wzrost[c(10,9)] [1] 182 181 > wzrost [1] 170 160 165 165 168 174 164 184 181 182 > #wywietlic wszyztkie elementy z wyjtkiem drugiego > wzrost[c(1,3,4,5,6,7,8,9,10)] [1] 170 165 165 168 174 164 184 181 182 > wzrost[-2] [1] 170 165 165 168 174 164 184 181 182 > #wywietlic wszyztkie elementy z wyjtkiem drugiego i dziesitego > wzrost[-c(2,10)] [1] 170 165 165 168 174 164 184 181 > wzrost [1] 170 160 165 165 168 174 164 184 181 182 > wzrost>168 [1] TRUE FALSE FALSE FALSE FALSE TRUE FALSE TRUE TRUE TRUE > #wywietli te elemtnty ktre s wiksze ni 168 > wzrost[wzrost>168] [1] 170 174 184 181 182 > wzrost [1] 170 160 165 165 168 174 164 184 181 182 > #wywietli te elemnty ktre s mniejsze od 164 > wzrost<164 [1] FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE > #wywietli te elemenyty ktre s rwne 165 > wzrost[wzrost==165] [1] 165 165 > #wywietli te elementy ktre s rwne 170 > wzrost[wzrost==180] numeric(0) > wzrost[wzrost==170] [1] 170 > #wywietli te elementy ktre s wiksze o 165 i jednoczenie mniejsze od 180 > wzrost[wzrost>165&wzrost<180] [1] 170 168 174 > #znak &odpowiada wspjnikowi logicznemu "i" > #wywietli te elementy ktre s mniejsze od 165 lub wiksze od 180 > wzrost[wzrost>165|wzrost<180] [1] 170 160 165 165 168 174 164 184 181 182 > wzrost[wzrost<165|wzrost>180] [1] 160 164 184 181 182 > #&oznacza wsplnik logiczny "lub" > #wypisa te elementy ktre s mniejsze od 168 i mniejsze od 180 > wzrost[wzrost>168&wzrost<180] [1] 170 174 > #nie s rwne 165 > wzrost[wzrost!=165] [1] 170 160 168 174 164 184 181 182 > #symbol negacji jest "!=" > #uyj funkcji programu R tak eby wyznaczy ile osb ma wicej ni 170 cm wzrostu > length(wzrost[wzrost>170]) [1] 4