> with(nba.draft,sample(Team,1,prob=Balls)) [1] Houston 13 Levels: Atlanta Chicago Cleveland Denver ... Washington