library(tidyverse) library(brms) library(Amelia) library(broom) set.seed(1234) data("africa") # Impute missing data with Amelia (since it handles country/year panel stuff really well)
June 7, 2020
Dear Members and Friends of the Lilburn Stake,
As I see the ongoing attitudes of prejudice and injustice being done to our African American friends and neighbors, my heart is deeply disturbed. I am moved by the growing number of protesters across our nation, some of them my own children, standing against racism and the disregard for human life. Ia am writing this letter to the members of our stake to let you know where we stand as your leaders on this critical issue.
I remember driving through our neighborhood following the attack on September 11, 2001. For days our neighbors were out on their lawns waving to us driving home from work. These neighbors were of middle eastern decent, people of similar culture to those who attacked our nation, yet not associated with the attack. They wanted us to know they were friendly and supported the freedom in our country. They were fearful the people of our country would retaliate.
After recently joining in to support a march, the president of my
library(MASS) # Has to come first because of dplyr::select library(tidyverse) library(broom) library(haven) example_df <- read_stata("http://stats.idre.ucla.edu/stat/data/ologit.dta") %>% mutate(apply = factor(apply, levels = 1:3, labels = c("unlikely", "somewhat likely", "very likely"), ordered = TRUE))
library(tidyverse) # For ggplot, dplyr, and friends library(tidyquant) # For getting financial data from FRED, other places library(tsibble) # For working with time-based data library(fable) # For time series analysis library(scales) # For fun things like comma() and percent() library(ggtext) # For text magic in ggplot # Get data from FRED # https://fred.stlouisfed.org/series/RSXFSN