# NOT RUN {
df1 <- data.frame("G" = c(71), "MP" = c(17090), "FG" = c(3006),
"FGA" = c(6269),"Percentage FG" = c(0.48), "3P" = c(782),
"3PA" = c(2242), "Percentage 3P" = c(0.349), "2P" = c(2224),
"2PA" = c(4027), "Percentage 2P" = c(0.552), "FT" = c(1260),
"FTA FG" = c(1728), "Percentage FT" = c(0.729), "ORB" = c(757),
"DRB" = c(2490),"TRB" = c(3247), "AST" = c(1803), "STL" = c(612),
"BLK" = c(468), "TOV" = c(1077), "PF" = c(1471), "PTS" = c(8054),
"+/-" = c(0))
team_stats_per_game(df1)
# }
Run the code above in your browser using DataLab