# A két kockával dobálást két különböző objektumba mentjük:
dobas1 = sample(1:6,10,replace=T)
dobas2 = sample(1:6,10,replace=T)

# Majd összeadjuk az eredményeket:

dobas12 = dobas1+dobas2

# Ugyanígy a nagyobb számoknál:
dobas3 = sample(1:6,100,replace=T)
dobas4 = sample(1:6,100,replace=T)
dobas34 = dobas3+dobas4
dobas5 = sample(1:6,1000,replace=T)
dobas6 = sample(1:6,1000,replace=T)
dobas56 = dobas5+dobas6

# A móduszt legkönnyebb az oszlopdiagram alapján megállapítani, ami a dobott értékek gyakoriságát mutatja:

barplot(table(dobas56))

# A hisztogramot és a dobozdiagramot pedig a kapott értékek alapján hozzuk létre:

boxplot(dobas56)
hist(dobas56)

# Ez pedig a sűrűségfüggvény létrehozásához szükséges parancssor:

plot(density(dobas56))