# Example 1: Albertson/Lawrence (2009)
# see Marbach/Hangartner (2019) for details/discussion
library(icsw)
data(FoxDebate)
with(FoxDebate, ivdesc(X=readnews,D=watchpro,Z=conditn) )
# \donttest{
# Example 2: JTPA Data
library(haven)
jtpa <- read_dta("http://fmwww.bc.edu/repec/bocode/j/jtpa.dta")
with(jtpa, ivdesc(age, training, assignmt, bootn=500))
with(jtpa, ivdesc(hispanic, training, assignmt, boot=FALSE))
# }
Run the code above in your browser using DataLab