Rich Barney rkbarney
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| > prop.test(x = c(300,250), n = c(50000,50000), conf.level = 0.05) | |
| 2-sample test for equality of proportions with continuity | |
| correction | |
| data: c(300, 250) out of c(50000, 50000) | |
| X-squared = 4.3896, df = 1, p-value = 0.03616 | |
| alternative hypothesis: two.sided | |
| 5 percent confidence interval: | |
| 0.0009506696 0.0010493304 |
rkbarney
/ gist:693feb2555d8f3dcb9cea80b3f7aa1d3
Created
May 7, 2018 21:50
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| library(shinydashboard) | |
| ui <- dashboardPage( | |
| dashboardHeader(title = 'Survey ETL Tool'), | |
| dashboardSidebar(), | |
| dashboardBody( | |
| titlePanel(tableOutput('var.info')), | |
| tags$div(id = 'placeholder') | |
| ) |
rkbarney
/ gist:a4166b5c31083071e869d0bb6b2a13d5
Created
May 7, 2018 15:25
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| # Define UI for application that draws a histogram | |
| ui <- fluidPage( | |
| titlePanel(tableOutput('var.info')), | |
| tags$div(id = 'placeholder') | |
| ) | |
| # Define server logic required to draw a histogram | |
| server <- function(input, output) { | |
| dat.names <- colnames(iris) |