# Wirtschaftsstatistik Blatt 3 # Aufgabe 1 a) rm(list=ls(all=T)) # Daten einlesen data <- scan("C://groesse.txt") # Stichprobenvarianz var(data) # Stichprobenstandardabweichung sd(data) # empirischer Variationskoeffizient sd(data)/mean(data) # Fünfercharakteristik c(min(data), quantile(data, 0.25), median(data), quantile(data, 0.75), max(data)) # Siebenercharakteristik c(min(data), quantile(data, 0.05), quantile(data, 0.25), median(data), quantile(data, 0.75), quantile(data, 0.95), max(data)) # Aufgabe 1 b) # Transformation des Stichprobenmittels mean(data)/2.54 # Transformation der Stichprobenvarianz var(data)/2.54^2