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)
> wektor<-c(k1,k2,k3,k4,k5,k6)
> table(wektor)
> sort(table(wektor))
> wektor<-sort(table(wektor))
> length(wektor)
> wektor[1]
> wektor[49]


3.
> dane[k1=="1",]
> dane[k6=="49",]


4.
> dane<-data.frame(dane,razem=k1+k2+k3+k4+k5+k6)

a)
> samasuma<-dane[,c(9)]
> length(table(samasuma))

b)
> min(samasuma)
> max(samasuma)

c)
> table(min(samasuma))

d)
> attach(dane)
> dane[razem==min(razem),]
> dane[razem==max(razem),]

e)
> table(samasuma)
> sortowanie<-sort(table(samasuma))
> length(sortowanie)
> sortowanie[length(sortowanie)]

f)
> hist((samasuma),main="Histogram sumy wylosowanych liczb")

g)
> summary(samasuma)

h)
> shapiro.test(samasuma)