2. feladatΒΆ

In [59]:
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")
'V1'
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   2.000   3.000   3.484   5.000   6.000 
      mu2       std 
15.049010  1.707203 

3. feladatΒΆ

In [118]:
boxplot(dobasok)
qqnorm(dobasok)
hist(dobasok)