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).

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



a data.frame containing the WSSQ items orderd from 1 to 12. The data.frame may contain further variables.


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.


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.


A numeric value indicating the number of non-missing items required for score calculations. The default is 5.


Integer of length one: value to round to. No rounding by default.


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


  • 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.


Link to Questionnaire (

Lillis et al. 2010 (


if (FALSE) { library(dplyr) items.wssq <- paste0("wssq_", seq(1, 12, 1)) scoring_wssq(mydata, items = items.wssq) }