fditraglia

survey <- read.csv("http://www.ditraglia.com/econ103/old_survey.csv")



survey <- survey[,c("handedness", "height", "handspan")]
head(survey)

fditraglia

survey <- read.csv("http://www.ditraglia.com/econ103/old_survey.csv")



survey <- survey[,1:6]

fditraglia

#1.1 Expressions 
1 + 1
"Arr, matey!"
6*7

#1.2 Logical Values
3 < 4
2 + 2 == 5

#1.3 Variables

fditraglia

x <- 5
x == 5



foo <- 3
bar <- 5
foo.bar <- foo + bar
foo.bar2 <- 2 * foo.bar

fditraglia

library(Quandl)
p <- 100 * Quandl('FRED/GDPDEF', collapse = 'quarterly', start_date = '1960-01-01', end_date = '2012-01-01', type = 'ts', transformation = 'rdiff')

#Michigan Inflation Expectations aren't in Quandl yet
library(quantmod)
getSymbols("MICH",src="FRED")
#Median expected price change next 12 months, Survey of Consumers.

#Convert to ts object
MICH.start <- as.numeric(format.Date(start(MICH), '%Y'))

fditraglia

#This script carries out a simulation study similar to that in Section 2 of ``Posterior Predictive Evidence on US Inflation...'' by Basturk et al (2012), exploring the effects of trend mis-specification on the estimate of the persistence of the inflation parameter. 

#Library to implement Bai and Perron (2003)
library(strucchange)

set.seed(4513)

g <- 0.5 #Inflation persistence
N.sims <- 250 #Simulation repetitions