# 2 c

# Daten einlesen
data <- scan("E:\\zugfest.txt")

# Shapiro-Wilk-Test
shapiro.test(data)