EconometricsBySimulation

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

EconometricsBySimulation

clear

set obs 4000

gen id = _n

gen eta1 = rnormal()
gen eta2 = rnormal()

* Generate 5 irrelevant factors that might affect each of the

EconometricsBySimulation

# R - Doodling in R

# I am working on creating some functions that will be capable of creating shapes and plots that look hand drawn.

# I have made some progress in this goal.

# In that process I have also discovered that I can make some doodles that look hand drawn as well.

# In order to accomplish the goal of simulating hand drawing I want to simulate the momentum of hand writing.

EconometricsBySimulation

rm(list=ls())

library(data.table)
library(dplyr)
library(ggplot2)

setwd('Z:/Data/FEC')

dsum <- function(...) dplyr::summarize(...)
to.data.table <- function(x) {(class(x) <- class(data.table())) ;x} 

EconometricsBySimulation

rm(list=ls())

library(data.table)
library(dplyr)
library(ggplot2)
library(scales)

setwd('Z:/Data/FEC')

dsum <- function(...) dplyr::summarize(...)

EconometricsBySimulation

# Estimating Weekly consumption from periodic purchasing data

library(dplyr)
library(data.table)
library(reshape)
library(tidyr)
library(ggplot2)


# Day Purchase

EconometricsBySimulation

emailto: psteiner@umd.edu student: Francis Smart fsmart@gmail.com EDMS769G

# Text Network graph
#           Student Ability _______________________
#            /           |                         \_____
#          /             |  Public/Private Transport     \
#         ↓              ↓     ↓                          ↘

EconometricsBySimulation

EconometricsBySimulation

print('Hello World')

EconometricsBySimulation

f = lambda : print('hello world')