case_grid <- generate_case_grids(
example_count_data,
example_count_data[, max(date)]
)
nci <- gen_nearby_case_info(
cg = case_grid,
distance_matrix = county_distance_matrix("OH")[["distance_matrix"]],
distance_limit = 25
)
generate_observed_expected(
nearby_counts = nci,
case_grid = case_grid
)
Run the code above in your browser using DataLab