I am an Associate Professor of Quantitative Methods in the Atkinson Graduate School of Management at Willamette University. My research interests include panel/cross-sectional time series data, causal inference in observed populations (joint with Tim Johnson), political economy, and general applied statistics and statistical computing. I am also an Honorary Instructor at the University of Essex where I lecture annually in the Essex Summer School in Social Science Data Analysis. I have held previous appointments at Dartmouth College, Harvard University, Texas A&M University, Washington University in Saint Louis, and Rice University. With Curt Signorino and Muhammet Bas, I was awarded the Warren Miller Prize for Statistical Backwards Induction for the best article in Political Analysis.
Of greatest import, I am married to the love of my life, am the proud father of two wonderful sons, like the Pacific Northwest, and, to keep things in balance, am a lifelong Arsenal fan.
PhD in Political Science, 2005
University of Rochester
MA in Political Science, 2002
Universty of Rochester
BA in Post-Soviet and East European Studies, 1995
University of Texas at Austin
Страноведение России, 1994
Московский государственный лингвистический университет
New York Times data for the US The New York Times has a wonderful compilation of United States on the novel coronavirus. The data update automatically so the following graphics were generated with data retrieved at 2020-07-10 13:01:32. The Basic State of Things options(scipen=9) library(tidyverse); library(hrbrthemes); library(patchwork); library(plotly); library(ggdark); library(ggrepel) CTP <- read.csv("https://covidtracking.com/api/v1/states/daily.csv") state.data <- read_csv(url("https://raw.githubusercontent.com/nytimes/covid-19-data/master/us-states.csv")) Rect.NYT <- complete(state.data, state,date) Rect.NYT <- Rect.NYT %>% group_by(state) %>% mutate(New.
Socrata: The Open Data Portal I did not previously know much about precisely how open data portals had evolved. Oregon’s is quite nice and I will take the opportunity to map and summarise non-profits throughout the state. Here is the data. library(RSocrata) Oregon.Nonprofits <- read.socrata("https://data.oregon.gov/resource/8kyv-b2kw.csv") glimpse(Oregon.Nonprofits) ## Rows: 163,489 ## Columns: 18 ## $ registry_number <int> 299818, 299818, 299818, 299818, 299818, 5… ## $ business_name <chr> "UNITED METHODIST CHURCH, OREGON CITY, OR… ## $ entity_type <chr> "DOMESTIC NONPROFIT CORPORATION", "DOMEST… ## $ registry_date <chr> "1850-05-17 00:00:00", "1850-05-17 00:00:… ## $ nonprofit_type <chr> "RELIGIOUS WITH MEMBERS", "RELIGIOUS WITH… ## $ associated_name_type <chr> "MAILING ADDRESS", "PRESIDENT", "PRINCIPA… ## $ first_name <chr> "", "MIKE", "", "MIKE", "CHRISTA", "", "S… ## $ middle_name <chr> "", "", "", "", "", "", "E", "", "", "", … ## $ last_name <chr> "", "BENISCHEK", "", "BENISCHEK", "PALMER… ## $ suffix <chr> "", "", "", "", "", "", "", "", "", "", "… ## $ not_of_record_entity <chr> "", "", "", "", "", "", "", "", "", "", "… ## $ entity_of_record_reg_number <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N… ## $ entity_of_record_name <chr> "", "", "", "", "", "", "", "", "", "", "… ## $ address <chr> "18955 S SOUTH END RD", "18955 S SOUTH EN… ## $ address_continued <chr> "", "", "", "", "", "", "", "", "", "", "… ## $ city <chr> "OREGON CITY", "OREGON CITY", "OREGON CIT… ## $ state <chr> "OR", "OR", "OR", "OR", "OR", "OR", "OR",… ## $ zip_code <chr> "97045", "97045", "97045", "97045", "9704… A basic zip code map or_zips <- zctas(cb = TRUE, starts_with = "97", class="sf") or_zips %>% ggplot(.
R Markdown I love this intro photo from the tidyTuesday page. This week’s tidyTuesday data cover violations of the GDPR. gdpr_violations <- readr::read_tsv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-04-21/gdpr_violations.tsv') ## Parsed with column specification: ## cols( ## id = col_double(), ## picture = col_character(), ## name = col_character(), ## price = col_double(), ## authority = col_character(), ## date = col_character(), ## controller = col_character(), ## article_violated = col_character(), ## type = col_character(), ## source = col_character(), ## summary = col_character() ## ) gdpr_text <- readr::read_tsv('https://raw.
In previous work with Skip Krueger, we conceptualized bond ratings as a multiple rater problem and extracted measure of state level creditworthiness. I had always had it on my list to do something like this and recently ran across a package called geofacet that makes it simply to easy to do. So here goes. The code is below the post. library(haven) library(dplyr) Pew.Data <- read_dta(url("https://github.com/robertwwalker/academic-mymod/raw/master/data/Pew/modeledforprediction.dta")) library(tidyverse) load(url("https://github.com/robertwwalker/academic-mymod/raw/master/data/Pew/Scaled-BR-Pew.RData")) state.ratings <- data.
Beer Distribution The #tidyTuesday for March 31, 2020 is on beer. The essential elements and a method for pulling the data are shown: Imgur A Comment on Scraping .pdf The Tweet The details on how the data were obtained are a nice overview of scraping .pdf files. The code for doing it is at the bottom of the page. @thomasmock has done a great job commenting his way through it.
Exploring the grammar of graphics using Archigos, the database of leaders.
One and Two Sample Inference
Exploring the grammar of graphics using Archigos, the database of leaders.
Probability and Tables
tidy data and a crash course in tidyverse
The management of the fuzzy front end (FFE) phase of innovation is crucial to the ultimate success of new product and process initiatives. A critical challenge that teams face at this stage is dealing with equivocality – the extent to which project participants grapple with multiple, and plausibly conflicting, meanings and interpretations of the information available to them (Daft and Lengel, 1986; Weick, 1979). While initially, a certain level of equivocality is beneficial for enhancing team creativity and preventing early closure, at some point it must be resolved in order for an idea to become a viable New Product Development (NPD) project. This study employs a social networks perspective to understand how different types of informal work-based relations and their structural properties affect equivocality on project teams in the FFE. In particular, it examines the structural effects of two types of social relations and their associated networks – technical-advice and friendship ties. The findings suggest that while high density in a projects technical-advice network is likely to reduce equivocality, high density in a projects friendship network is likely to increase it. More interestingly, having multiple members on projects who are highly central in the lab technical-advice network tends to increase equivocality unless it is balanced with members who occupy positions of high centrality in the lab friendship network. In addition to contributing to the scholarship on NPD, FFE, and social networks, the results offer managerial insights for deploying social networks in order to assemble NPD teams and structure the flows of communication on projects so as to resolve equivocality in the FFE.
To measure the effect of veterans’ preference on U.S. federal workforce quality, researchers have assessed whether military veterans advance in their federal careers at a different rate than nonveterans. This research, however, has produced mixed results. In research concerning recent employee cohorts, nonveterans outpace veterans’ advancement, implying that veterans’ preference lessens employee quality. In older cohorts, veterans and nonveterans advance comparably. The latter research, however, controls for employees’ entry positions, whereas research concerning recent cohorts does not do so, thus inhibiting direct comparison of results. To facilitate such comparisons, we controlled for veterans’ and nonveterans’ entry positions in a study of career advancement among all white-collar, U.S. executive branch workers entering employment from 1992 to 2013. In these recent cohorts, we find roughly equivalent rates of career advancement among veterans and nonveterans when controlling for entry positions. This finding holds when using grade or pay increases as measures of advancement.
We examine models that relax proportionality in cumulative ordered regression models. Something fundamental arising from ordered variables and stochastic ordering implies a partitioning. Efforts to relax proportionality also relax the ability to collapse an inherently multidimensional problem to a partitioning of the (unidimensional) real line. It is surprising and unfortunate to find that deviations from proportionality are sufficient to generate internal contradictions; undecidable propositions must exist by relaxing proportional odds without other relevant and significant changes in the underlying model. We prove a single theorem linking continuous support and partitions of a latent space to show that for these two characteristics to be simultaneously satisfied, the model must be the proportional-odds model. Conditioning on the adjacency that is closely related to the partitioning is fruitful, but at this point we join the class of continuation-ratio models. Alternatively, Anderson’s (1984) stereotype model is quite general and nests ordered and unordered choice models, but again we have left the domain of cumulative models. Adopting multidimensional cumulative models or imposing covariate-specific thresholds are the only certain methods for avoiding these troubles in the cumulative framework. It is generically impossible to generalize the cumulative class of ordered regression models in ways consistent with the spirit of generalized cumulative regression models. Monte Carlo studies also demonstrate the general principles.