compressive_strength.R

# Dữ liệu cường độ nén

x <- c(42.1,43.5,44.0,42.8)

mean(x)

## [1] 43.1

sd(x)

## [1] 0.8286535

hist(x)