Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ---
- title: "test"
- author: ""
- date: "24 January 2017"
- output: ioslides_presentation
- runtime: shiny
- ---
- ```{r setup, include=FALSE}
- knitr::opts_chunk$set(echo = FALSE)
- ```
- ## Shiny Presentation
- This R Markdown presentation is made interactive using Shiny. The viewers of the presentation can change the assumptions underlying what's presented and see the results immediately.
- To learn more, see [Interactive Documents](http://rmarkdown.rstudio.com/authoring_shiny.html).
- ## Interactive Plot
- ```{r eruptions}
- inputPanel(
- selectInput("n_breaks", label = "Number of bins:",
- choices = c(10, 20, 35, 50), selected = 20),
- sliderInput("bw_adjust", label = "Bandwidth adjustment:",
- min = 0.2, max = 2, value = 1, step = 0.2)
- )
- renderPlot({
- hist(faithful$eruptions, probability = TRUE, breaks = as.numeric(input$n_breaks),
- xlab = "Duration (minutes)", main = "Geyser eruption duration")
- dens <- density(faithful$eruptions, adjust = input$bw_adjust)
- lines(dens, col = "blue")
- })
- ```
- ## Bullets
- - Bullet 1
- - Bullet 2
- - Bullet 3
- ## R Output
- ```{r cars}
- summary(cars)
- ```
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement