d.birthrates: Birthrates and socio-economic data of Switzerland, 1870
In regr0: Building regression models

Description Usage Format Details Source References Examples

The fertility of women (see Details) per district is to be modelled as a function of socio-economic variables.

1 2	data("d.birthrates") data("d.birthratesVars")

d.birthrates is a data frame with 182 observations on the following 25 variables.

fertTotal: Index of total fertility
infantMort: Infant Mortality Rate
catholic: percent Catholic
single24: percent women aged 20-24 who are single
single49: percent women aged 45-49 who are single
eAgric: Proportion male labor force in agriculture
eIndustry: Proportion male labor force in industry
eCommerce: Proportion male labor force in trade
eTransport: Proportion male labor force in transportation
eAdmin: Proportion male labor force in public service
german: percent German
french: percent French
italian: percent Italian
romansh: percent Romansh
gradeHigh: Prop. high grade in draftees exam
gradeLow: Prop. low grade in draftees exma
educHigh: Prop. draftees with > primary educ.
bornLocal: Proportion living in commune of birth
bornForeign: Proportion born in foreign country
sexratio: Sex ratio (M/F)
canton: Canton Name

district: District Name
altitude: altitude in three categories: low, medium, high
language: dominating language: german, french, italian, romansh

d.birthratesVars contains these descriptions.

Exact definition of fertility: fertility = 100 * B_l/ sum m_i f_i where B_l = annual legitimate births, m_i = the number of married women in age interval i, and f_i = the fertility Hutterite women in the same age interval. Stillbirths are included. "Hutterite women" are women in a population that is known to be extremely fertile.

https://opr.princeton.edu/archive/pefp/switz.aspx

Van der Walle, Francine (1980). "Education and the Demographic Transition in Switzerland." Population and Development Review, vol. 6, no. 3.

data(d.birthrates)
plot(fertility ~ eAgric, data=d.birthrates)
r.lm <- lm(fertility ~ catholic + single24 + single49 +
  eAgric + eIndustry + eCommerce + eTransport + eAdmin +
  german + french + italian + romansh + gradeHigh + gradeLow +
  educHigh + bornLocal + bornForeign + sexratio, data=d.birthrates)
r.st <- step(r.lm, k=4, trace=FALSE)
summary(r.st)