## 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/2025/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("evszakok_szavakkal.csv")
evszakok.kisbetu = read.csv2("evszakok_kisbetu.csv")

# dobozdiagram rajzolása

boxplot(pontszam~evszak,evszakok.szavak)
boxplot(pontszam~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)

# kvartilisek
quantile(evszakok$kor)

Az 1. kvartilis 14, a 3. 47,5.

Az interkvartilis félterjedelem 47,5-14 = 16,75

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

# ratings objektumban

# gyakoriságok dobozdiagramon
boxplot(Frequency~Class, ratings)
boxplot(meanFamiliarity~Class, ratings)
barplot(table(ratings$Length)/81*100)