"nba.draft" <-
structure(list(Team = structure(c(5, 2, 8, 4, 6, 3, 11, 1, 12, 
9, 13, 7, 10), .Label = c("Atlanta", "Chicago", "Cleveland", 
"Denver", "Golden State", "Houston", "L.A. Clippers", "Memphis", 
"Miami", "Milwaukee", "New York", "Phoenix", "Washington"), class = "factor"), 
    Record = structure(c(1, 1, 2, 3, 4, 5, 6, 7, 8, 8, 9, 10, 
    11), .Label = c("21-61", "23-59", "27-55", "28-54", "29-53", 
    "30-52", "33-49", "36-46", "37-45", "39-43", "41-41"), class = "factor"), 
    Balls = c(225, 225, 157, 120, 89, 64, 44, 29, 15, 14, 7, 
    6, 5)), .Names = c("Team", "Record", "Balls"), row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"
), class = "data.frame")