library(wooldridge)
data(jtrain2)
head(jtrain2[, c("train", "re78", "educ", "age", "black", "married")], n = 10) train re78 educ age black married
1 1 9.93005 11 37 1 1
2 1 3.59589 9 22 0 0
3 1 24.90950 12 30 1 0
4 1 7.50615 11 27 1 0
5 1 0.28979 8 33 1 0
6 1 4.05649 9 22 1 0
7 1 0.00000 12 23 1 0
8 1 8.47216 11 32 1 0
9 1 2.16402 16 22 1 0
10 1 12.41810 12 33 0 1