I will use an open dataset provided by LA Police Department to demonstrate sampling distribution. The dataset contains all arrests by LAPD in 2016. For a description of each column, read here.
library(DT)
arrests <- read.csv("https://curiositybits.cc/files/la_arrests_2016.csv")
datatable(arrests, options = list(pageLength = 5))## Warning in instance$preRenderHook(instance): It seems your data is too
## big for client-side DataTables. You may consider server-side processing:
## https://rstudio.github.io/DT/server.html