library(wooldridge)
data("rental")
rental90 <- subset(rental, y90 == 1)
head(rental90[, c("city", "rent", "avginc")]) city rent avginc
2 1 342 19568
4 2 496 31885
6 3 351 21202
8 4 588 29044
10 5 925 56307
12 6 630 35103