Sampling with probability distribution

sampling_example.R

# generate example:
prob <- c(2, rep(1,9))
v <- vector()
for (i in 1:10000){
  v <- c(v, sample(1:10, 1, prob = prob))
}

# print the output:
print(table(v))