Simulating the Central Limit Theorem

sampleDist = function(n) { 
    sample(x = c(1,2,3,4,5,6), n, replace = T, prob = c(0.5, 0.15, 0.15, 0.10, 0.05, 0.05)) 
}

sampleDist(30)

##  [1] 1 3 5 3 1 1 3 1 1 2 1 1 2 1 2 1 3 4 3 4 1 4 1 1 3 1 1 1 1 1