In archaeology, the term “Sampling\ can be used in a variety of meanings. Here we are dealing with statistical sampling.

To take a simple 25% random sample of weight and calculate descriptive statistics of the sample:

> WeightSample <- sample(Weight,10)

To evaluate differences between the sample and the population:

> summary(WeightSample)
> summary(Weight)