Pizza Ordering

Reproducible Pitch Presentation

Tommy Ho

Pizza Ordering, a Shiny App

R in action within Slidify (data)

mQty <- 1:10
oAmount <- paste('$', 12 * mQty)
df <- data.frame(mQty, oAmount)
df
##    mQty oAmount
## 1     1    $ 12
## 2     2    $ 24
## 3     3    $ 36
## 4     4    $ 48
## 5     5    $ 60
## 6     6    $ 72
## 7     7    $ 84
## 8     8    $ 96
## 9     9   $ 108
## 10   10   $ 120

R in action within Slidify (plot)

mQty <- 1:10
oAmount <- 12 * mQty
plot(mQty, oAmount)

plot of chunk plot01

R in action within Slidify (curve)

curve(sin(x), -12.56, 12.56, main = "Sine Wave: 4 Pi")

plot of chunk curve01