Automatically Adapt Measurement Levels
measurement-autolevel.RdThe generic function measurement_autolevel changes the measurement
levels of "item" objects to "nominal" or "ordinal", if
the proportion of its values that have labels is above a certain
threshold.
Usage
measurement_autolevel(x, ...)
# S4 method for ANY
measurement_autolevel(x, ...) # Returns its argument as is
# S4 method for item.vector
measurement_autolevel(x,
to=getOption("measurement.adapt.default","nominal"),
threshold=getOption("measurement.adapt.threshold",.75),
...)
# S4 method for data.set
measurement_autolevel(x,
to=getOption("measurement.adapt.default","nominal"),
threshold=getOption("measurement.adapt.threshold",.75),
except=NULL,
only=NULL,
...)Arguments
- x
an object from class "item.vector" or "data.set".
- to
a character vector, the target measurement level
- threshold
the proportion of values, if reached the target measurement level is set
- except
a vector with variable names, either as symbols (without quotation marks) or character strings (with quotation markes), the variables in the data set that are not to be changed by
measurement_autolevel().- only
a vector with variable names, either as symbols (without quotation marks) or character strings (with quotation markes), the variables in the data set that are to be changed by
measurement_autolevel().- ...
other arguments, currently ignored.
Examples
exvect <- as.item(rep(1:2,5))
labels(exvect) <- c(a=1,b=2)
codebook(exvect)
#> ================================================================================
#>
#> exvect
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: interval
#>
#> Values and labels N Percent
#>
#> 1 'a' 5 50.0
#> 2 'b' 5 50.0
#>
#> Min: 1.000
#> Max: 2.000
#> Mean: 1.500
#> Std.Dev.: 0.500
#>
codebook(measurement_autolevel(exvect))
#> ================================================================================
#>
#> measurement_autolevel(exvect)
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: nominal
#>
#> Values and labels N Percent
#>
#> 1 'a' 5 50.0
#> 2 'b' 5 50.0
#>
avect <- as.item(sample(1:3,16,replace=TRUE))
labels(avect) <- c(a=1,b=2,c=3)
bvect <- as.item(sample(1:4,16,replace=TRUE))
labels(bvect) <- c(A=1,B=2,C=3,D=4)
ds <- data.set(a=avect,b=bvect)
codebook(ds)
#> ================================================================================
#>
#> a
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: interval
#>
#> Values and labels N Percent
#>
#> 1 'a' 5 31.2
#> 2 'b' 7 43.8
#> 3 'c' 4 25.0
#>
#> Min: 1.000
#> Max: 3.000
#> Mean: 1.938
#> Std.Dev.: 0.747
#>
#> ================================================================================
#>
#> b
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: interval
#>
#> Values and labels N Percent
#>
#> 1 'A' 6 37.5
#> 2 'B' 2 12.5
#> 3 'C' 6 37.5
#> 4 'D' 2 12.5
#>
#> Min: 1.000
#> Max: 4.000
#> Mean: 2.250
#> Std.Dev.: 1.090
#>
codebook(measurement_autolevel(ds))
#> ================================================================================
#>
#> a
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: nominal
#>
#> Values and labels N Percent
#>
#> 1 'a' 5 31.2
#> 2 'b' 7 43.8
#> 3 'c' 4 25.0
#>
#> ================================================================================
#>
#> b
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: nominal
#>
#> Values and labels N Percent
#>
#> 1 'A' 6 37.5
#> 2 'B' 2 12.5
#> 3 'C' 6 37.5
#> 4 'D' 2 12.5
#>
codebook(measurement_autolevel(ds,except=c(a,b)))
#> ================================================================================
#>
#> a
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: interval
#>
#> Values and labels N Percent
#>
#> 1 'a' 5 31.2
#> 2 'b' 7 43.8
#> 3 'c' 4 25.0
#>
#> Min: 1.000
#> Max: 3.000
#> Mean: 1.938
#> Std.Dev.: 0.747
#>
#> ================================================================================
#>
#> b
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: interval
#>
#> Values and labels N Percent
#>
#> 1 'A' 6 37.5
#> 2 'B' 2 12.5
#> 3 'C' 6 37.5
#> 4 'D' 2 12.5
#>
#> Min: 1.000
#> Max: 4.000
#> Mean: 2.250
#> Std.Dev.: 1.090
#>
codebook(measurement_autolevel(ds,only=a))
#> ================================================================================
#>
#> a
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: nominal
#>
#> Values and labels N Percent
#>
#> 1 'a' 5 31.2
#> 2 'b' 7 43.8
#> 3 'c' 4 25.0
#>
#> ================================================================================
#>
#> b
#>
#> --------------------------------------------------------------------------------
#>
#> Storage mode: integer
#> Measurement: interval
#>
#> Values and labels N Percent
#>
#> 1 'A' 6 37.5
#> 2 'B' 2 12.5
#> 3 'C' 6 37.5
#> 4 'D' 2 12.5
#>
#> Min: 1.000
#> Max: 4.000
#> Mean: 2.250
#> Std.Dev.: 1.090
#>