notExtremelyRelevant: Not at all to A great deal
In saberry/lkrt: Gives Likert response options labels to items

Description Usage Arguments Value Author(s) Examples

Provides the following response options: Not at all relevant, not very relevant, slightly relevant, somewhat relevant, very relevant, and extremely relevant

1	notExtremelyRelevant(dat, vars, ord=TRUE)

`dat`	the data frame
`vars`	a single variable or a list of multiple variables
`ord`	logical indicating whether the items should be ordinal (TRUE:default) or factor (FALSE)

This function will return response option labels for ordered factors.

Seth Berry, Michael Clark

##---- 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, ord=TRUE){
  require(dplyr)
  datReduced = select(dat, one_of(vars))
  likOrd = lapply(datReduced, function(x)
    factor(x,
           levels = c(1,2,3,4,5,6),
           labels = c("Not at all relevant", "Not very relevant", "Slightly relevant",
                      "Somewhat relevant", "Very relevant", "Extremely relevant"),
           ordered=ord)
  )
  likOrd = as.data.frame(likOrd)
  dat[,vars] = likOrd
}