R: non-finite error appears during linear model regression

Question

read_dta("PSID.dta")

PSID <- read_dta("PSID.dta")

new_id <- PSID[PSID$id>=5000,]

I am trying to create a linear regre