worksurv {ade4}R Documentation

French Worker Survey (1970)

Description

The worksurv data frame gives 319 response items and 4 questions providing from a French Worker Survey.

Usage

data(worksurv)

Format

This data frame contains the following columns:

  1. proProfessional elections. In professional elections in your firm, would you rather vote for a list supported by? CGT CFDT FO CFTC Auton Autonomous Abst Nonaffi Not affiliated NR No response
  2. unaUnion affiliation. At the present time, are you affiliated to a Union, and in the affirmative, which one? CGT CFDT FO CFTC Auton Autonomous CGC Notaffi Not affiliated NR No response
  3. prePresidential election. On the last presidential election (1969), can you tell me the candidate for whom you have voted? Duclos Deferre Krivine Rocard Poher Ducatel Pompidou NRAbs No response, abstention
  4. polpolitical sympathy. Which political party do you feel closest to, as a rule ? Communist (PCF) Socialist (SFIO+PSU+FGDS) Left (Party of workers",...) Center MRP+RAD. RI Right INDEP.+CNI Gaullist UNR NR No response

Details

The data frame worksurv has the attribute 'counts' giving the number of responses for each item.

Source

Rouanet, H. and Le Roux, B. (1993) Analyse des données multidimensionnelles. Dunod, Paris.

References

Le Roux, B. and Rouanet, H. (1997) Interpreting axes in multiple correspondence analysis: method of the contributions of points and deviation. Pages 197-220 in B. J. and M. Greenacre, editors. Visualization of categorical data, Acamedic Press, London.

Examples

data(worksurv)
acm1 <- dudi.acm(worksurv, row.w = attr(worksurv,"counts"), 
    scan = FALSE)
par(mfrow = c(2,2))
apply(worksurv,2, function(x) s.class(acm1$li, factor(x),
    attr(worksurv, 'counts')))

Worked out examples


> library(ade4)
> ### Name: worksurv
> ### Title: French Worker Survey (1970)
> ### Aliases: worksurv
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(worksurv)
> acm1 <- dudi.acm(worksurv, row.w = attr(worksurv,"counts"), 
+     scan = FALSE)
> par(mfrow = c(2,2))
> apply(worksurv,2, function(x) s.class(acm1$li, factor(x),
+     attr(worksurv, 'counts')))
$pro
s.class(dfxy = acm1$li, fac = factor(x), wt = attr(worksurv, 
    "counts"))

$una
s.class(dfxy = acm1$li, fac = factor(x), wt = attr(worksurv, 
    "counts"))

$pre
s.class(dfxy = acm1$li, fac = factor(x), wt = attr(worksurv, 
    "counts"))

$pol
s.class(dfxy = acm1$li, fac = factor(x), wt = attr(worksurv, 
    "counts"))

> 
> 
> 
> 

[Package ade4 Index]