1. > (dane<-read.csv2("D:\\dl.csv")) # wczytanie danych z pliku > names(dane)<-c("Nr","Data","k1","k2","k3","k4","k5","k6");dane # zmiana nazw kolumn. Mo¿na to zrobiæ wczeœniej w ekselu ale tak jest elegancko. > dane[1:4,] # wyœwietlenie pierwszych czterech wierszy ramki 2. > attach(dane) # przy³¹czamy ramkê ¿eby operowaæ na niej swobodnie. Bez tego czêœæ nie bêdzie chodziæ. > wektor<-c(k1,k2,k3,k4,k5,k6) # ³¹czenie kolumn > table(wektor) # najczêstsze wylosowane liczby > sort(table(wektor))# sortuje te najczêstsze wylosowane liczby > wektor2<-sort(table(wektor))# tworzy wektor2 z tych powy¿ej najczêœciej wylosowanych liczb > length(wektor2) # podaje d³ugoœæ wektora, ¿eby móc sprawdziæ ostatni¹ (najczêstsz¹) liczbê > wektor2[1] # pierwsza (najrzadsza) > wektor2[49] # ostatnia (najczêœciejsza) 3. > dane[k1=="1",] # wyswietlamy losowania z liczba 1 > dane[k6=="49",] # wyswietlamy losowania z liczba 49 4. > kolumna<-dane[,c(3,4,5,6,7,8)] # stworzenie takiej ramki ¿eby mia³a same liczby, bez dat i numerów losowania. same kolumny k1, k2, k3, k4, k5, k6 > suma<-data.frame(kolumna,razem=k1+k2+k3+k4+k5+k6) # dodanie nowego wektora i do niego jeszcze jednej kolumny z sum¹ wylosowanych liczb a) > kolumna2<-suma[,c(7)] # robimy sobie ramkê ¿eby operowaæ tylko na sumie. Sama kolumna "razem" z zadania powy¿ej. > wektorzsuma<-c(kolumna2) # robimy z niej wektor > length(table(wektorzsuma)) # to jest rozmiar tego wektora, czyli liczba ró¿nych wartoœci sumy b) > sort(table(wektorzsuma)) # > min(wektorzsuma) # minimalna suma > max(wektorzsuma) # maksymalna suma c) > table(min(wektorzsuma)) # mówi ile razy wypad³a najni¿sza suma d) > dane<-data.frame(dane,razem=k1+k2+k3+k4+k5+k6) # dodanie do ramki "dane" kolumny z sum¹ wylosowanych liczb. > attach(dane) # jeszcze raz attach, bo ramka siê zmienia > dane[razem==min(razem),] # losowania z najmniejsz¹ sum¹ wylosowanych liczb > dane[razem==max(razem),] # losowania z najwiêksz¹ sum¹ wylosowanych liczb e) > table(wektorzsuma) # pokazuje iloœæ powtórzeñ poszczególnych sum > sortowanie<-sort(table(wektorzsuma)) # nowa ramka, z posortowan¹ iloœci¹ powtórzeñ poszczególnych sum, od najrzadszej do najczêstszej. > length(sortowanie) # d³ugoœæ powy¿szej ramki > sortowanie[length(sortowanie)] # pokazanie ostatniej wartoœci z ramki, czyli najczêœciej wylosowanej liczby, wraz z iloœci¹ wylosowañ. f) > hist((wektorzsuma),main="Histogram sumy wylosowanych liczb") g) > summary(wektorzsuma) # podstawowe operacje statystyczne h) > shapiro.test(wektorzsuma) # sprawdzanie normalnoœci wykresu: p-value jest wiêksze od 0,05 w zw¹zku z czym wykres jest normalny.