As probabilidades dentro prob=c() tem que somar 1?
Complementando, assim dará certo:
table(sample(1:3, size=100, replace = T, prob=c(0.1, 0.6, 0.3)))