Francis Smart EconometricsBySimulation

## 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")

## 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$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)
  })
})

## 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>
	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")
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
	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)
	})
	})
	<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">"00"00</Keywords>
	<Keywords name="Folder+">begin function type for while if</Keywords>