```
# NOT RUN {
### Note: the 'not run' is simply because running takes a lot of time,
### but these examples are all safe to run!
# }
# NOT RUN {
normalityAssessment(rnorm(35));
### Create a distribution of three possible values and
### show the sampling distribution for the mean
popValues <- c(1, 2, 3);
popFrequencies <- c(20, 50, 30);
sampleSize <- 100;
samplingDistribution(popValues = popValues,
popFrequencies = popFrequencies,
sampleSize = sampleSize);
### Create a very skewed distribution of ten possible values
popValues <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
popFrequencies <- c(2, 4, 8, 6, 10, 15, 12, 200, 350, 400);
samplingDistribution(popValues = popValues,
popFrequencies = popFrequencies,
sampleSize = sampleSize, digits=5);
# }
```

Run the code above in your browser using DataLab