library(dplyr)
library(sf)
## read file
system.file("gpkg/nc.gpkg", package = "sf") |>
read_sf() -> nc
## create new variables
nc |> mutate(SID = SID74 / BIR74, NWB = NWBIR74 / BIR74, rate74 = SID74 / BIR74) -> nc1
lm(SID ~ NWB, nc1) |>
predict(nc1, interval = "prediction") -> pr
bind_cols(nc, pr) |> names() [1] "AREA" "PERIMETER" "CNTY_" "CNTY_ID" "NAME" "FIPS"
[7] "FIPSNO" "CRESS_ID" "BIR74" "SID74" "NWBIR74" "BIR79"
[13] "SID79" "NWBIR79" "geom" "fit" "lwr" "upr"






