cbgoodman

#!/bin/bash

# Required parameters:
# @raycast.schemaVersion 1
# @raycast.title New Blog Post
# @raycast.mode silent

# Optional parameters:
# @raycast.argument1 { "name": "title", "placeholder": "Title", "type": "text", "required": true }
# @raycast.icon ✉️

cbgoodman

library(tidyverse)
library(data.table)

# import, unzip, and read
# this is for IL, change the url to whichever version you want/need from here: 
# https://seer.cancer.gov/popdata/download.html
il_singleage = fread(
  "curl https://seer.cancer.gov/popdata/yr1969_2022.singleages/il.1969_2022.singleages.txt.gz | funzip", 
  colClasses = 'character',
  header = FALSE

cbgoodman

library("tidyverse")
library("tidycensus")

census_api_key("INSERT_API_KEY")

wright <- get_acs(
  state = "MN",
  county = "Wright",
  geography = "county subdivision",
  variables = "B19013_001",

cbgoodman

library(tidyverse)
library(readxl)

plot.data <- read_excel("popgrow-coeff.xlsx", sheet = "popgrow", col_types = c("guess", "numeric", "numeric", "numeric", "guess"))

multiplier <- qnorm(1 - 0.05 / 2)

plot.data <- plot.data %>%
  mutate(std.est = estimate * sd,
  std.se = se * sd,