set.seed(123)
x <- rnorm(n = 15, mean = 10, sd = 20)
x
hist(x)
y <- 10
y^2
