codebook
memisc
0.99.25.4
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¶
xan
item, numeric or character vector, factor,data.set,data.frameorimporterobject forcodebook()weightsan optional vector of weights.
unweightedan 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' 45 34.1 15.0
2 'Labour' 49 37.1 16.3
3 'Liberal Democrats' 38 28.8 12.7
8 M 'Don't know' 45 15.0
9 M 'Answer refused' 41 13.7
97 M 'Not applicable' 37 12.3
99 M 'Not asked in survey' 45 15.0
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' 124 48.2 41.3
2 'Scotland' 94 36.6 31.3
3 'Wales' 39 15.2 13.0
99 M 'Not asked in survey' 43 14.3
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: 341.931
Max: 10482.461
Mean: 2693.354
Std.Dev.: 1957.325
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' 45 34.1 15.0
2 'Labour' 49 37.1 16.3
3 'Liberal Democrats' 38 28.8 12.7
8 M 'Don't know' 45 15.0
9 M 'Answer refused' 41 13.7
97 M 'Not applicable' 37 12.3
99 M 'Not asked in survey' 45 15.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' 124 48.2 41.3
2 'Scotland' 94 36.6 31.3
3 'Wales' 39 15.2 13.0
99 M 'Not asked in survey' 43 14.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' 124 48.2 41.3
2 'Scotland' 94 36.6 31.3
3 'Wales' 39 15.2 13.0
99 M 'Not asked in survey' 43 14.3
Remark:
This is not a real survey item, of course ...
Write(description(Data),
file="Data-desc.txt")
Write(codebook(Data),
file="Data-cdbk.txt")