problem-5.3

problem-5.3  The frequencies in Balls may be used for the probabilities, as shown:
> with(nba.draft,sample(Team,1,prob=Balls))
[1] Houston
13 Levels: Atlanta Chicago Cleveland Denver ... Washington