Erste Inspektion der Daten

# Datensatz Kimmons herunterladen
gpa <- read.csv( "http://roycekimmons.com/system/generate_data.php?dataset=exams&n=100")

# Visuelle Übersicht erstellen lassen --> Barchart erstellen lassen
hist(gpa$math.score)

# 1. Barplot zu Eregbnissen des Lesetest erstellen
barplot(table(gpa$reading.score))

# 2. Barplot zu den Ergebnissen des Schreibtest
barplot(table(gpa$writing.score))

# Normalverteilung feststellen. 

qqnorm(gpa$writing.score)

qqline(gpa$writing.score)

# Je näher die Punkte an der Geraden liegen, dest mehr spricht für eine Normalverteilung

Übung zur Korrelation

# Datensatz Kimmons herunterladen
gpa <- read.csv( "http://roycekimmons.com/system/generate_data.php?dataset=exams&n=100")

# Beispielanalyse
cor(gpa$math.score,gpa$reading.score)
## [1] 0.9058759
# Korrelationsanalyse von Lesenote und Schriftnote 
cor(gpa$reading.score,gpa$writing.score)
## [1] 0.9677263
# Korrelationsanalyse von Mathenote und Schriftnote
cor(gpa$math.score,gpa$writing.score)
## [1] 0.8759459