# 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")
|