neverAlways: Never to Always

In saberry/lkrt: Gives Likert response options labels to items

Description

Gives "poor" to "outstanding" or "excellent" response option labels to variables.

Usage

neverAlways(dat, vars, ros, ord=TRUE)

Arguments

dat	the data frame
vars	a single variable or a list of multiple variables
ros	which label set to use; 0 will return "never", "seldom", "sometimes", "often", "usually", and "always"; anything else will return "never/almost never", "seldom/rarely", "sometimes", "often", "usually/most of the time", and "almost always/always"
ord	logical indicating whether the items should be ordinal (TRUE:default) or factor (FALSE)

Value

This function will return response option labels for ordered factors.

Author(s)

Seth Berry, Michael Clark

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--  or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(dat, vars, ros, ord=TRUE){
  require(dplyr)
  datReduced = select(dat, one_of(vars))
  if(ros == 0)
    likOrd = lapply(datReduced, function(x)
      factor(x,
             levels = c(1,2,3,4),
             labels = c("Poor", "Good", 
                        "Very good", "Outstanding"),
             ordered=ord)
    )
  else {
    datReduced = select(dat, one_of(vars))
    likOrd = lapply(datReduced, function(x)
      factor(x,
             levels = c(1,2,3,4),
             labels = c("Poor", "Fair",
                        "Good", "Excellent"),
             ordered=ord)
    )  
  }
  likOrd = as.data.frame(likOrd)
  dat[,vars] = likOrd
}

saberry/lkrt documentation built on May 7, 2019, 2:32 p.m.