My Third R embed Post

> x <- rnorm(100)
> summary(x)
    Min.  1st Qu.   Median     Mean  3rd Qu.     Max.
-2.35600 -0.67900 -0.06583  0.05711  0.93000  2.30100