data <- c(10, 20, 30, 40, 50)
mean_val <- mean(data)
sd_val <- sd(data)
print(mean_val) # [1] 30
print(sd_val)   # [1] 15.81139