Peter Aldhous paldhous

## pdf_search.sh
for file in *.pdf; do
    pdftotext "$file" - | grep -q "keyword" && echo "$file"
done

## edge_tweets.R
# load required packages
library(rtweet)
library(tidyverse)

# get tweets (you will need a Twitter API token to run this code)
edge <- get_timeline("edge", n = 3200)

# function for frequency table
count_pct <- function(df) {
  return(

## names.R
# load required packages
library(dplyr)
library(babynames)
library(readr)

# first names from 1990 Social Security Adminstration baby names data
malenames <- babynames %>%
  filter(year == 1990 & sex == "M")

malenames <- malenames %>%

## inuag_weekend_planes.csv

          
            reg
            name
            type

            
              N137HP
              CALIFORNIA HIGHWAY PATROL
              State

            
              N212FX
              COUNTY OF FAIRFAX
              Local

            
              N220PD
              CITY OF OAKLAND
              Local

            
              N269FL
              US DEPARTMENT OF HOMELAND SECURITY
              Federal

            
              N314HP
              CALIFORNIA HIGHWAY PATROL
              State

            
              N520PG
              PRINCE GEORGES COUNTY
              Local

            
              N613TC
              T A F Y CONSULTING
              Federal

            
              N661PD
              LAPD AIR SUPPORT DIVISION
              Local

            
              N662PD
              LAPD AIR SUPPORT DIVISION
              Local
	for file in *.pdf; do
	pdftotext "$file" - \| grep -q "keyword" && echo "$file"
	done
	# load required packages
	library(rtweet)
	library(tidyverse)

	# get tweets (you will need a Twitter API token to run this code)
	edge <- get_timeline("edge", n = 3200)

	# function for frequency table
	count_pct <- function(df) {
	return(
	# load required packages
	library(dplyr)
	library(babynames)
	library(readr)

	# first names from 1990 Social Security Adminstration baby names data
	malenames <- babynames %>%
	filter(year == 1990 & sex == "M")

	malenames <- malenames %>%
reg	name	type
N137HP	CALIFORNIA HIGHWAY PATROL	State
N212FX	COUNTY OF FAIRFAX	Local
N220PD	CITY OF OAKLAND	Local
N269FL	US DEPARTMENT OF HOMELAND SECURITY	Federal
N314HP	CALIFORNIA HIGHWAY PATROL	State
N520PG	PRINCE GEORGES COUNTY	Local
N613TC	T A F Y CONSULTING	Federal
N661PD	LAPD AIR SUPPORT DIVISION	Local
N662PD	LAPD AIR SUPPORT DIVISION	Local