scoring_afeqt: Scoring the Atrial Fibrillation Effect on QualiTy-of-Life...

Description Usage Arguments Details Value References Examples

View source: R/afeqt.R

Description

The AFEQT questionnaire is an atrial fibrillation-specific health-related quality of life (HRQoL) questionnaire designed to [...] assess the impact of atrial fibrillation on patients’ HRQoL and possibly assess changes with treatment. [...] Overall the subscale scores range from 0 to 100. For Disability questions, a score of 0 corresponds to complete disability, while a score of 100 corresponds to no disability. For Satisfaction questions, a score of 100 indicates that the patient is extremely satisfied with current treatment. questions 19 and 20 regarding satisfaction with health care providers and with treatment are not included in the overall AFEQT score and are each calculated and scored independently. (Scoring Manual)

Usage

1
2
3
4
5
6
7
scoring_afeqt(
  data,
  items = 1:20,
  keep = TRUE,
  nvalid = list(sym = 2, dac = 4, trc = 3),
  digits = NULL
)

Arguments

data

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

items

A character vector with the AFEQT item names ordered from 1 to 20, or a numeric vector indicating the column numbers of the AFEQT 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 named list indicating the number of non-missing items required for score calculations. The defaults are:

  • sym = 2 (Symptoms Score)

  • dac = 4 (Daily Activities Score)

  • trc = 3 (Treatment Concern Score)

digits

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

Details

Value

The function returns 10 variables:

References

Spertus J (2010) (https://doi.org/10.1161/CIRCEP.110.958033)

Scoring Manual (http://afeqt.org/files/AFEQT_Questionnaire_Scoring_Guide.pdf)

Link to Questionnaire (http://www.afeqt.org/files/AFEQT_Questionnaire.pdf)

Examples

1
2
3
4
5
6
## Not run: 
library(dplyr)
items.afeqt <- paste0("afeqt_", seq(1, 20, 1))
scoring_afeqt(mydata, items = items.afeqt)

## End(Not run)

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