Set up

## knitr::opts_chunk$set(
##   fig.showtext = TRUE,
##   fig.width = 16,
##   fig.height = 8,
##   dpi = 300
##   )
## devtools::install_github("yihui/xaringan")
## devtools::install_github("gadenbuie/xaringanthemer@dev")
library(xaringanthemer)
library(Wu)

## Loading required package: data.table

## Loading required package: plyr

## Loading required package: dplyr

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:plyr':
## 
##     arrange, count, desc, failwith, id, mutate, rename, summarise,
##     summarize

## The following objects are masked from 'package:data.table':
## 
##     between, first, last

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

## Loading required package: lubridate

## 
## Attaching package: 'lubridate'

## The following objects are masked from 'package:data.table':
## 
##     hour, isoweek, mday, minute, month, quarter, second, wday, week,
##     yday, year

## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union

## Loading required package: magrittr

## Loading required package: tableone

## Loading required package: DT

## Loading required package: ggplot2

## Loading required package: gridExtra

## 
## Attaching package: 'gridExtra'

## The following object is masked from 'package:dplyr':
## 
##     combine

## Loading required package: plotly

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following objects are masked from 'package:plyr':
## 
##     arrange, mutate, rename, summarise

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

## Loading required package: knitr

## Loading required package: kableExtra

## 
## Attaching package: 'kableExtra'

## The following object is masked from 'package:dplyr':
## 
##     group_rows

## Loading required package: labelled

## Loading required package: nnet

## Loading required package: scales

## Loading required package: png

## Loading required package: mgcv

## Loading required package: nlme

## 
## Attaching package: 'nlme'

## The following object is masked from 'package:dplyr':
## 
##     collapse

## This is mgcv 1.8-33. For overview type 'help("mgcv-package")'.

## 
## Attaching package: 'mgcv'

## The following object is masked from 'package:nnet':
## 
##     multinom

## Loading required package: lme4

## Loading required package: Matrix

## 
## Attaching package: 'lme4'

## The following object is masked from 'package:nlme':
## 
##     lmList

## Loading required package: flexdashboard

## 
## Attaching package: 'Wu'

## The following object is masked from 'package:scales':
## 
##     percent

## The following object is masked from 'package:stats':
## 
##     heatmap

style_duo_accent(
  primary_color = "#1b9aaa",
  secondary_color = "#ffc43d",
  text_font_google = google_font("Coming Soon"),  #<< this is crazy but okay
  header_font_google = google_font("Trade Winds") #<< very on brand for Tampa
)

Plotly Heatmap

Plotly Histogram

Bullets

$$\bar{X}=\frac{1}{n}\sum_{i=1}^nX_i$$

• Item I
• Item II
  • Point A
  • Point B
• Item III

Regression

# a boring regression
fit = lm(dist ~ 1 + speed, data = cars)
coef(summary(fit))

##               Estimate Std. Error   t value     Pr(>|t|)
## (Intercept) -17.579095  6.7584402 -2.601058 1.231882e-02
## speed         3.932409  0.4155128  9.463990 1.489836e-12

Table

knitr::kable(head(iris), format = 'html')

data.table

htmltools::tags$iframe