R: Intergenerational Class Mobility in England/Wales, France and...

erikson {gnm} | R Documentation

## Intergenerational Class Mobility in England/Wales, France and Sweden

### Description

Intergenerational class mobility among the male populations of England and Wales; France, and Sweden.

### Usage

    erikson

### Format

A table of counts, with classifying factors `origin` (father's class; levels `I`, `II`, `III`, `IVa`, `IVb`, `IVc`, `V/VI`, `VIIa`, `VIIb`) `destination` (son's class; levels as before), and `country` (son's country of residence; levels `EW`, `F`, `S`).

### Source

Hauser, R. M. (1984) Vertical Class Mobility in England, France and Sweden. Acta Sociol., 27(2), 87-110.

### References

Erikson, R., GoldThorpe, J. H. and Portocarero, L. (1982) Social Fluidity in Industrial Nations: England, France and Sweden. Brit. J. Sociol. 33(1), 1-34.

Xie, Y. (1992) The Log-multiplicative Layer Effect Model for Comparing Mobility Tables. Am. Sociol. Rev. 57(3), 380-395.

### Examples

    set.seed(1)

    ### Collapse to 7 by 7 table as in Erikson (1982)

    erikson <- as.data.frame(erikson)
    lvl <- levels(erikson$origin)
    levels(erikson$origin) <- levels(erikson$destination) <-
        c(rep(paste(lvl[1:2], collapse = " + "), 2), lvl[3],
          rep(paste(lvl[4:5], collapse = " + "), 2), lvl[6:9])
    erikson <- xtabs(Freq ~ origin + destination + country, data = erikson)

    ### Fit the models given in first half of Table 3 of Xie (1992)

    ## Null association between origin and destination
    nullModel <- gnm(Freq ~ country*origin + country*destination,
                     family = poisson, data = erikson)

    ## Full interaction, common to all countries
    commonInteraction <- update(nullModel, ~ . + origin:destination)

    ## Full Interaction, different multiplier for each country
    multInteraction <- update(nullModel,
                              ~ . + Mult(Exp(country), origin:destination))

    ### Create array of interaction levels as in Table 2 of Xie (1992)

    levelMatrix <- matrix(c(2, 3, 4, 6, 5, 6, 6,
                            3, 3, 4, 6, 4, 5, 6,
                            4, 4, 2, 5, 5, 5, 5,
                            6, 6, 5, 1, 6, 5, 2,
                            4, 4, 5, 6, 3, 4, 5,
                            5, 4, 5, 5, 3, 3, 5,
                            6, 6, 5, 3, 5, 4, 1), 7, 7, byrow = TRUE)

    ### Fit models in second half of Table 3 in Xie (1992)

    ## Interaction specified by levelMatrix, common to all countries
    commonTopo <- update(nullModel, ~ . +
                         Topo(origin, destination, spec = levelMatrix))

    ## Interaction specified by levelMatrix, different multiplier for
    ## each country
    multTopo <- update(nullModel, ~ . +
                       Mult(Exp(country),
                            Topo(origin, destination, spec = levelMatrix)))

    ## Interaction specified by levelMatrix, different effects for
    ## each country
    separateTopo <- update(nullModel, ~ . +
                           country:Topo(origin, destination,
                                        spec = levelMatrix))

[Package gnm version 1.0-8 Index]