scoring_wssq: Scoring the Weight Self-Stigma Questionnaire (WSSQ)

In nrkoehler/qscorer: Procedures for Scoring Health-related Questionnaires

Description

The WSSQ is a 12-item Likert-type measure of weight-related self-stigma. WSSQ items are rated on a scale of 1 (completely disagree) to 5 (completely agree). Sum scores are calculated for the full scale and each subscale. Items 1–6 constitute the self-devaluation subscale, and items 7–12 constitute the fear of enacted stigma subscale (Lillis et al. 2010).

Usage

scoring_wssq(data, items = 1:12, keep = TRUE, nvalid = 5, digits = NULL)

Arguments

data	a data.frame containing the WSSQ items orderd from 1 to 12. The data.frame may contain further variables.
items	A character vector with the WSSQ item names ordered from 1 to 12, or a numeric vector indicating the column numbers of the WSSQ items in data.
keep	Logical, whether to keep the single items and whether to return variables containing the number of non-missing items on each scale for each respondent. The default is TRUE.
nvalid	A numeric value indicating the number of non-missing items required for score calculations. The default is 5.
digits	Integer of length one: value to round to. No rounding by default.

Details

• Number of items: 12

• Item range: 1 to 5

• Reverse items: none

• Score range: 5 to 30 for each score

• Cut-off-values: none

• Minimal clinically important difference: none

• Treatment of missing values: Summary scores are calculated as long as at least 5 questions from the sub-score have been answered.

Value

The function returns 5 variables:

• nvalid.wssq.ena: Number of valid values of Fear of enacted stigma Scale (MAX=6)

• nvalid.wssq.sel: Number of valid values of Self‐devaluation Scale (MAX=6)

• score.wssq.ena: WSSQ Fear of enacted stigma Score

• score.wssq.sel: WSSQ Self‐devaluation Score

• score.wssq.glo: WSSQ Global Score

References

Link to Questionnaire (https://www.usucbs.com/uploads/5/1/3/4/51340265/wssq__weight_self_stigma_.docx)

Lillis et al. 2010 (https://doi.org/10.1038/oby.2009.353)

Examples

## Not run: 
library(dplyr)
items.wssq <- paste0("wssq_", seq(1, 12, 1))
scoring_wssq(mydata, items = items.wssq)

## End(Not run)

nrkoehler/qscorer documentation built on April 5, 2020, 3:09 a.m.