# Reshape to wide format (one row per tract)
census_wide <- census_data %>%
select(tract, year, cluster) %>%
pivot_wider(names_from = year, values_from = cluster)
# Define sequence object with TraMineR
seq_data <- seqdef(
census_wide,
var = c("1980", "1990", "2000", "2010", "2020"),
labels = c("White", "Black", "Hispanic", "Asian",
"Black/Hisp", "White Mixed")
)











