install.packages("httr") install.packages("wnominate") install.packages("pscl")
source("ProPublica Functions/Members by Congress Function.R") source("ProPublica Functions/Recent Member Positions Function.R") source("ProPublica Functions/Recent Votes Function.R") source("ProPublica Functions/Rollcalls by Congress.R") source("ProPublica Functions/Specific Member Function.R") source("ProPublica Functions/Specific Roll Call Vote Function.R") source("ProPublica Functions/2nd Level Functions/Map Ideological Positions Function.R")
exam1_vote <- get.rollcall(congress = 116, chamber = "senate", session = 2, roll_call = 80)
exam2_member <- get.member("B001277")
exam3_recent <- recent.votes("both") exam4_recent <- recent.votes("senate") exam5_recent <- recent.votes("house")
exam6_member <- member.record("B001277")
exam7_congress <- member.list(congress = 116, chamber = "senate")
exam8_congress <- rc.record(congress = 116, chamber = "senate")
exam9_pinpoint <- elite.map(congress = 115, chamber = "senate", dimes = 4) plot(exam9_pinpoint$wnom)