Francis Smart EconometricsBySimulation

## julia_npp.xml
<NotepadPlus>
    <UserLang name="Julia" ext="jl">
        <Settings>
            <Global caseIgnored="no" />
            <TreatAsSymbol comment="no" commentLine="yes" />
            <Prefix words1="no" words2="no" words3="no" words4="no" />
        </Settings>
        <KeywordLists>
            <Keywords name="Delimiters">&quot;00&quot;00</Keywords>
            <Keywords name="Folder+">begin function type for while if</Keywords>

## server.r
shinyServer(function(input, output) {
  output$distPlot <- renderPlot({
    # Take a dependency on input$goButton
    input$goButton

    # Use isolate() to avoid dependency on input$obs
    dist <- isolate(rnorm(input$obs))
    hist(dist)
  })
})

## heightweight.csv

          
            sex
            ageYear
            ageMonth
            heightIn
            weightLb

            
              f
              11.91667
              143
              56.3
              85

            
              f
              12.91667
              155
              62.3
              105

            
              f
              12.75
              153
              63.3
              108

            
              f
              13.41667
              161
              59
              92

            
              f
              15.91667
              191
              62.5
              112.5

            
              f
              14.25
              171
              62.5
              112

            
              f
              15.41667
              185
              59
              104

            
              f
              11.83333
              142
              56.5
              69

            
              f
              13.33333
              160
              62
              94.5

## server.r
shinyServer(function(input, output) {

  output$main_plot <- renderPlot(width = 400, height = 300, {

    hist(faithful$eruptions,
      probability = TRUE,
      breaks = as.numeric(input$n_breaks),
      xlab = "Duration (minutes)",
      main = "Geyser eruption duration")