load("../data/fin2.Rdata") introData <- intro(fin2)
What features make for a popular film at the box office? The mean domestic box office, for a sample of over 5000 films, was approximately \$r round(introData$stats$Mean,-2)
, with half earning approximately \$r round(introData$stats$Median, -2)
, The top 5 films observed (r kfigr::figr(label = "top5films", prefix = TRUE, link = TRUE, type="Table")
) earned an average of \$r round(mean(introData$top5$Domestic), -2)
!
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.