## Mai órára készült házi feladatokhoz szükséges függvények ##

# átlag
mean(evszakaim$PONT)

# medián
median(evszakaim$PONT)

# dobozdiagram az összes pontszámmal
boxplot(evszakaim$PONT)

# évszakok szerint bontva
boxplot(evszakaim$PONT~evszakaim$EVSZAK)

# ugyanez egyszerűbben
boxplot(PONT~EVSZAK, data = evszakaim)

# még egyszerűbben
boxplot(PONT~EVSZAK, evszakaim)

# mind a négy írásmód ugyanahhoz a függvényhez tartozik

## Fájlok betöltése az R-be ##

# Letöltés közvetlenül az internetről:

evszakok = read.csv2(url("https://phon.nytud.hu/mady/courses/statistics/2026/evszakok.csv"))

# Betöltés saját mappából:

evszakok = read.csv2("sajáthely/evszakok.csv")

##########

# újabb fájl betöltése, ahol szavak is jelölnek évszakokat

evszakok.szavak = read.csv2(url("https://phon.nytud.hu/mady/courses/statistics/evszakok/evszakok_szavakkal.csv"))

evszakok.kisbetu = read.csv2(url("https://phon.nytud.hu/mady/courses/statistics/evszakok/evszakok_kisbetu.csv"))

# dobozdiagram rajzolása

boxplot(pont~evszak,evszakok.szavak)
boxplot(pont~evszak,evszakok.kisbetu)

### Házi feladatok március 5-ről ###

# evszakok objektumban:

# Életkor átlaga és mediánja, dobozdiagram:

mean(evszakok$kor)
median(evszakok$kor)
boxplot(evszakok$kor)

# kvantilisek
quantile(evszakok$kor)

Az 1. kvartilis 20, a 3. 45,25.

Az interkvartilis félterjedelem 45,25-20 = 12.625

# Hisztogram, oszlopdiagram, kumulatív eloszlások oszlopdiagramja.
hist(evszakok$kor)
barplot(table(evszakok$kor))
barplot(cumsum(table(evszakok$kor)))