adat=read.table("http://arato.inf.unideb.hu/noszaly.csaba/statszgR/kocka.data", header=FALSE, sep="\n")
names(adat)
dobasok=adat$V1
print(summary(dobasok))
mu2=mean(dobasok*dobasok)
print(c(mu2=mu2, std=sd(dobasok)))
tapeo=ecdf(dobasok)
x=seq(0,7,by=0.03)
frame()
plot(x,tapeo(x),type="o")
boxplot(dobasok)
qqnorm(dobasok)
hist(dobasok)