\begin{Schunk}
\begin{Sinput}
  set.seed(324234)
  m <- -7.1; sd <- 11
  onexset <- rnorm(500, m = m, sd = sd)
  m1 <- mean(onexset)
  sd1 <- sd(onexset)
  hist(onexset, breaks = 20, prob= TRUE, xlim=c(-4*sd, m+4*sd), main = "", xlab = "Observations from one sample")
\end{Sinput}
\end{Schunk}
