Score the FACT-EGFRI
Generates all of the scores of the Functional Assessment of Cancer Therapy - for patients treated with EGFR Inhibitors (FACT-EGFRI) from item responses.
A data frame with the FACT-EGFRI items, appropriately-named.
Given a data frame that includes all of the FACT-EGFRI items as variables, appropriately named, this function generates all of the FACT-EGFRI scale scores. It is crucial that the item variables in the supplied data frame are named according to FACT conventions. For example, the first item should be named ST4, the second ST5, and so on. Please refer to the materials provided by http://www.facit.org for the particular questionnaire you are using. In particular, refer to the left margin of the official questionnaire (i.e., from facit.org) for the appropriate item variable names.
The original data frame is returned (optionally with modified
updateItems = TRUE) with new variables corresponding to
the scored scales. If
keepNvalid = TRUE, for each scored scale an
additional variable is returned that contains the number of valid
responses each respondent made to the items making up the given scale.
These optional variables have names of the format
The following scale scores are returned:
FACT-EGFRI Total Score
Keep in mind that this function (and R in general) is case-sensitive.
All variables should be in numeric or integer format.
This scoring function expects missing item responses to be coded as NA, 8, or 9, and valid item responses to be coded as 0, 1, 2, 3, or 4. Any other value for any of the items will result in an error message and no scores.
Some item variables are reverse coded for the purpose of generating the
scale scores. The official (e.g., from http://www.facit.org) SAS
and SPSS scoring algorithms for this questionnaire automatically replace
the original items with their reverse-coded versions. This can be
confusing if you accidentally run the algorithm more than once on your
data. As its default,
scoreFACT_EGFRI DOES NOT replace any of your
original item variables with the reverse coded versions. However, for
consistentcy with the behavior of the other versions on
updateItems argument is
provided. If set to
TRUE, any item that is supposed to be
reverse coded will be replaced with its reversed version in the data
frame returned by
FACT-EGFRI Scoring Guidelines, available at http://www.facit.org
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
## Setting up item names for fake data itemNames <- c('ST4', 'ST5', 'ST6', 'ST7', 'ST9', 'ST32', 'ST22', 'ST17', 'ST24', 'ST37', 'ST26', 'ST34', 'ST38', 'ST16', 'ST15', 'ST29', 'B5', 'ST11') set.seed(6375309) ## Generating random item responses for 8 fake respondents exampleDat <- t(replicate(8, sample(0:4, size = length(itemNames), replace = TRUE))) ## Making half of respondents missing about 10% of items, ## half missing about 50%. miss10 <- t(replicate(4, sample(c(0, 9), prob = c(0.9, 0.1), size = length(itemNames), replace = TRUE))) miss50 <- t(replicate(4, sample(c(0, 9), prob = c(0.5, 0.5), size = length(itemNames), replace = TRUE))) missMtx <- rbind(miss10, miss50) ## Using 9 as the code for missing responses exampleDat[missMtx == 9] <- 9 exampleDat <- as.data.frame(cbind(ID = paste0('ID', 1:8), as.data.frame(exampleDat))) names(exampleDat) <- c('ID', itemNames) ## Returns data frame with scale scores and with original items untouched scoredDat <- scoreFACT_EGFRI(exampleDat) names(scoredDat) scoredDat ## Returns data frame with scale scores, with the appropriate items ## reverse scored, and with item values of 8 and 9 replaced with NA. ## Also illustrates the effect of setting keepNvalid = TRUE. scoredDat <- scoreFACT_EGFRI(exampleDat, updateItems = TRUE, keepNvalid = TRUE) names(scoredDat) ## Descriptives of scored scales summary(scoredDat[, c('FACT_EGFRI')])
Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.