1.
> (dane<-read.csv2("E:\\dl.csv"))
> names(dane)<-c("Nr","Data","k1","k2","k3","k4","k5","k6");dane
> dane[1:4,]

2.
> attach(dane) # przyłączamy ramkę żeby operować na niej swobodnie
> 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
> wektor<-sort(table(wektor))# tworzy wektor z tych powyżej najczęściej wylosowanych liczb
> length(wektor) # podaje długość wektora, żeby móc sprawdzić ostatnią (najczęstszą) liczbę
> wektor[1] - pierwsza (najrzadsza)
> wektor[49] - ostatnia (najczęściejsza)

3.

> dane[k1=="1",] # wyswietlamy losowania z liczba 1
> dane[k6=="49",] # wyswietlamy losowania z liczba 49


4.
> dane<-data.frame(dane,razem=k1+k2+k3+k4+k5+k6) # dodanie do ramki "dane" kolumny z sumą wylosowanych liczb.


a)
> samasuma<-dane[,c(9)] # robimy sobie ramkę żeby operować tylko na sumie. Sama kolumna "razem" z zadania powyżej.
> length(table(samasuma)) # to jest rozmiar tego wektora, czyli liczba różnych wartości sumy

b)
> sort(table(samasuma)) #
> min(samasuma) # minimalna suma
> max(samasuma) # maksymalna suma

c)
> table(min(samasuma)) # mówi ile razy wypadła najniższa suma

d)
> attach(dane)
> dane[razem==min(razem),] # losowania z najmniejszą sumą wylosowanych liczb
> dane[razem==max(razem),] # losowania z największą sumą wylosowanych liczb

e)
> table(samasuma) # pokazuje ilość powtórzeń poszczególnych sum
> sortowanie<-sort(table(samasuma)) # 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((samasuma),main="Histogram sumy wylosowanych liczb")
> barplot((samasuma),main="Histogram sumy wylosowanych liczb")


g)
> summary(samasuma) # podstawowe operacje statystyczne

h)
> shapiro.test(samasuma) # sprawdzanie normalności wykresu: p-value jest większe od 0,05 w zwązku z czym wykres jest normalny.