codebook
memisc
0.99.26.3
Generate a Codebook of a Data Set¶
Description¶
Function codebook collects documentation about an item, or the items in a data set or
external data file. It returns an object that, when ``show``n, print this documentation
in a nicely formatted way.
Usage¶
codebook(x, weights = NULL, unweighted = TRUE, ...)
## S4 method for signature 'item'
codebook(x, weights = NULL, unweighted = TRUE, ...)
## S4 method for signature 'atomic'
codebook(x, weights = NULL, unweighted = TRUE, ...)
## S4 method for signature 'factor'
codebook(x, weights = NULL, unweighted = TRUE, ...)
## S4 method for signature 'data.set'
codebook(x, weights = NULL, unweighted = TRUE, ...)
## S4 method for signature 'data.frame'
codebook(x, weights = NULL, unweighted = TRUE, ...)
## S4 method for signature 'importer'
codebook(x, weights = NULL, unweighted = TRUE, ...)
Arguments¶
x-
an
item, numeric or character vector, factor,data.set,data.frameorimporterobject forcodebook() weights-
an optional vector of weights.
unweighted-
an optional logical vector; if weights are given, it determines of only summaries of weighted data are show or also summaries of unweighted data.
...-
other arguments, currently ignored.
Value¶
An object of class “codebook”, for which a show method exists that produces a nicely
formatted output.
Examples¶
Data <- data.set(
vote = sample(c(1,2,3,8,9,97,99),size=300,replace=TRUE),
region = sample(c(rep(1,3),rep(2,2),3,99),size=300,replace=TRUE),
income = exp(rnorm(300,sd=.7))*2000
)
Data <- within(Data,{
description(vote) <- "Vote intention"
description(region) <- "Region of residence"
description(income) <- "Household income"
wording(vote) <- "If a general election would take place next tuesday,
the candidate of which party would you vote for?"
wording(income) <- "All things taken into account, how much do all
household members earn in sum?"
foreach(x=c(vote,region),{
measurement(x) <- "nominal"
})
measurement(income) <- "ratio"
labels(vote) <- c(
Conservatives = 1,
Labour = 2,
"Liberal Democrats" = 3,
"Don't know" = 8,
"Answer refused" = 9,
"Not applicable" = 97,
"Not asked in survey" = 99)
labels(region) <- c(
England = 1,
Scotland = 2,
Wales = 3,
"Not applicable" = 97,
"Not asked in survey" = 99)
foreach(x=c(vote,region,income),{
annotation(x)["Remark"] <- "This is not a real survey item, of course ..."
})
missing.values(vote) <- c(8,9,97,99)
missing.values(region) <- c(97,99)
})
description(Data)
vote 'Vote intention'
region 'Region of residence'
income 'Household income'
codebook(Data)
====================================================================================================
vote 'Vote intention'
"If a general election would take place next tuesday, the candidate of which
party would you
vote for?"
----------------------------------------------------------------------------------------------------
Storage mode: double
Measurement: nominal
Missing values: 8, 9, 97, 99
Values and labels N Valid Total
1 'Conservatives' 44 31.4 14.7
2 'Labour' 48 34.3 16.0
3 'Liberal Democrats' 48 34.3 16.0
8 M 'Don't know' 34 11.3
9 M 'Answer refused' 45 15.0
97 M 'Not applicable' 44 14.7
99 M 'Not asked in survey' 37 12.3
Remark:
This is not a real survey item, of course ...
====================================================================================================
region 'Region of residence'
----------------------------------------------------------------------------------------------------
Storage mode: double
Measurement: nominal
Missing values: 97, 99
Values and labels N Valid Total
1 'England' 140 54.3 46.7
2 'Scotland' 83 32.2 27.7
3 'Wales' 35 13.6 11.7
99 M 'Not asked in survey' 42 14.0
Remark:
This is not a real survey item, of course ...
====================================================================================================
income 'Household income'
"All things taken into account, how much do all household members earn in sum?"
----------------------------------------------------------------------------------------------------
Storage mode: double
Measurement: ratio
Min: 343.126
Max: 12419.634
Mean: 2720.092
Std.Dev.: 1993.533
Remark:
This is not a real survey item, of course ...
codebook(Data)$vote
====================================================================================================
vote 'Vote intention'
"If a general election would take place next tuesday, the candidate of which
party would you
vote for?"
----------------------------------------------------------------------------------------------------
Storage mode: double
Measurement: nominal
Missing values: 8, 9, 97, 99
Values and labels N Valid Total
1 'Conservatives' 44 31.4 14.7
2 'Labour' 48 34.3 16.0
3 'Liberal Democrats' 48 34.3 16.0
8 M 'Don't know' 34 11.3
9 M 'Answer refused' 45 15.0
97 M 'Not applicable' 44 14.7
99 M 'Not asked in survey' 37 12.3
Remark:
This is not a real survey item, of course ...
codebook(Data)[2]
====================================================================================================
region 'Region of residence'
----------------------------------------------------------------------------------------------------
Storage mode: double
Measurement: nominal
Missing values: 97, 99
Values and labels N Valid Total
1 'England' 140 54.3 46.7
2 'Scotland' 83 32.2 27.7
3 'Wales' 35 13.6 11.7
99 M 'Not asked in survey' 42 14.0
Remark:
This is not a real survey item, of course ...
codebook(Data[2])
====================================================================================================
region 'Region of residence'
----------------------------------------------------------------------------------------------------
Storage mode: double
Measurement: nominal
Missing values: 97, 99
Values and labels N Valid Total
1 'England' 140 54.3 46.7
2 'Scotland' 83 32.2 27.7
3 'Wales' 35 13.6 11.7
99 M 'Not asked in survey' 42 14.0
Remark:
This is not a real survey item, of course ...
Write(description(Data),
file="Data-desc.txt")
Write(codebook(Data),
file="Data-cdbk.txt")