# Wirtschaftsstatistik Blatt 1

# Aufgabe 4

# Daten einlesen mit read.table ergibt einen Data Frame
gewicht <- read.table("C:\\gewicht.txt")

# Daten einlesen mit scan ergibt einen Vektor
gewicht2 <- scan("C:\\gewicht.txt")

# Minimum berechnen
min(gewicht)
min(gewicht2)

# Mittelwert berechnen
mean(gewicht)
mean(gewicht2)

# Standardabweichung berechnen
sd(gewicht)
sd(gewicht2)

# 90%-Quantil berechnen
# quantile(gewicht, 0.9) geht nicht, da gewicht ein Data Frame ist
# Das Argument für quantile muss aber ein Vektor sein 
# => zuerst die Spalte V1 auswählen
quantile(gewicht$V1, 0.9)
quantile(gewicht2, 0.9)