format <- function(object,...){
}

> dput(head(data))
structure(list(attribute = c("Acceleration/speed", "Dribbling",
"Aggression", "Ball Control", "Composure", "Crossing"), weights = c(0.174119699170201,
0.0142504648411431, 0, 0.0821275086888316, 0, 0.079118689094399
), values = list(82.5, 88, 84, 92, 86, 90)), .Names = c("attribute",
"weights", "values"), row.names = c(NA, 6L), class = c("player",
"data.frame"))