## Linking Workshop Exercise 2
library(ipumsr)
library(dplyr)
library(tidyr)
library(tidyverse)

ddi <- read_ipums_ddi("cps_00051.xml")
data <- read_ipums_micro(ddi)

# Counting Times Variable ------------------------------------------------
data_count <- data %>%
  group_by(CPSIDP) %>%
  summarize(count = n())
counting_max_times <- data_count %>%
  group_by(count) %>%
  summarize(total = n())

# Maximum MISH Variable ------------------------------------------------
data_mish <- data %>%
  group_by(CPSIDP) %>%
  summarize(max_mish = max(MISH))
counting_max_mish <- data_mish %>%
  group_by(max_mish) %>%
  summarize(total = n())
sum_2nd_half <- data_mish %>%
  filter(max_mish > 4) %>%
  summarize(sum = n())