# test1.R

x <- c(1,2,5,7)
mx <- mean(x) # Mittelwert berechnen
sx <- sd(x) # Standardabweichung berechnen

cat("x = ", x, "\n")
cat("Mittelwert = ", mx, "\n")
cat("Standardabweichung = ", sx, "\n")