Scoring of the Severe Respiratory Insufficiency Questionnaire (SRI)
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
R
figures
man
references
.Rbuildignore
.gitignore
DESCRIPTION
NAMESPACE
README.Rmd
README.md
srir.Rproj

README.md

srir

Background

The Severe Respiratory Insufficiency Questionnaire (SRI) is a multidimensional general health questionnaire "to assess HRQL in patients with chronic respiratory failure due to various underlying diseases" (Windisch et al. 2003). Based on 49 items, seven sub scales and one total summary scale are calculated:

  • Respiratory Complaints (8 items);
  • Physical Function (6 items);
  • Attendant Symptoms and Sleep (7 items);
  • Social Relationships(6 items);
  • Anxiety (5 items);
  • Psychological Well-Being (9 items);
  • Social Functioning (8 items);
  • Summary Scale (based on 7 sub-scales).

All scales have a score range between 0 and 100 with higher scores indicating a high burden of symptoms (Struik et al. 2013). All items are scored on a 5-point Likert scale ranging from 1 (completely untrue) to 5 (always true). The majority of items need to be recoded (recoded value = 6 – raw value).

Package Description

With score_sri the package contains a function for scoring the Severe Respiratory Insufficiency Questionnaire (SRI). In addition, srir provides two simulated data frames containing SRI items:

  • df.full: Data frame with no missing values;
  • df.na: Data frame with some missing values.

Installation

devtools::install_github("nrkoehler/srir")

Examples

Scoring

library(srir)
df.sri.scores <- scoring_sri(df.full, id = 'id')
head(df.sri.scores)
#>   id sri.rc sri.pf sri.as sri.sr sri.ax sri.wb sri.sf sri.ss
#> 1  1   37.5   50.0   46.4   95.8     35   52.8   28.1   49.4
#> 2  2   56.2   45.8   60.7   41.7     45   66.7   59.4   53.6
#> 3  3   50.0   50.0   35.7   45.8     35   58.3   53.1   46.9
#> 4  4   46.9   54.2   39.3   75.0     55   38.9   43.8   50.4
#> 5  5   71.9   50.0   28.6   58.3     50   33.3   40.6   47.5
#> 6  6   53.1   66.7   28.6   45.8     30   47.2   37.5   44.1

Visualisation

library(dplyr)
library(tidyr)
library(ggplot2)
library(forcats)
library(srir)

mydata <- scoring_sri(df.full, id = 'id') %>%
  select(-id) %>%
    gather(key = scale, value = value) %>%
      group_by(scale) %>%
        summarize_all(mean) %>%
          ungroup()


ggplot(mydata, aes(value, fct_reorder(scale, value))) +
      geom_point(size = 3, colour = 'red3') +
      geom_text(label = round(mydata$value, 1), size = 3, nudge_x = 0.25, color = 'black') +
      theme_bw() +
      labs(x='Score', 
           y = 'Scale', 
           subtitle = 'Severe Respiratory Insufficiency Questionnaire (SRI)')

References

Struik, Fransien M., Huib A. M. Kerstjens, Gerrie Bladder, Roy Sprooten, Marianne Zijnen, Jerryll Asin, Thys van der Molen, and Peter J. Wijkstra. 2013. “The Severe Respiratory Insufficiency Questionnaire Scored Best in the Assessment of Health-Related Quality of Life in Chronic Obstructive Pulmonary Disease.” Journal of Clinical Epidemiology 66 (10): 1166–74. doi:10.1016/j.jclinepi.2013.04.013.

Windisch, Wolfram, Klaus Freidel, Bernd Schucher, Hansjörg Baumann, Matthias Wiebel, Heinrich Matthys, and Franz Petermann. 2003. “The Severe Respiratory Insufficiency (SRI) Questionnaire A Specific Measure of Health-Related Quality of Life in Patients Receiving Home Mechanical Ventilation.” Journal of Clinical Epidemiology 56 (8): 752–59. doi:10.1016/S0895-4356(03)00088-X.