Skip to contents

SARC-F Sarcopenia Screening Score

Source: R/sarc_f_score.R
sarc_f_score.Rd

Computes the SARC-F questionnaire score, a quick screening tool for sarcopenia risk.

Usage

sarc_f_score(
  data,
  col_map = list(strength = "Strength", walking = "Walking", chair = "Chair", stairs =
    "Stairs", falls = "Falls"),
  verbose = FALSE,
  na_action = c("keep", "omit", "error", "ignore", "warn"),
  check_extreme = FALSE,
  extreme_action = c("warn", "cap", "error", "ignore", "NA"),
  extreme_rules = NULL
)

Arguments

data

A data.frame or tibble with SARC-F questionnaire responses.

col_map

Named list mapping the five SARC-F components to columns: strength, walking, chair, stairs, falls.

verbose

Logical; if TRUE, emits progress messages.

na_action

One of c("keep","omit","error","ignore","warn").

check_extreme

Logical; if TRUE, scan inputs for plausible ranges (0-2).

extreme_action

One of c("warn","cap","error","ignore","NA").

extreme_rules

Optional overrides; default caps each item to c(0,2).

Value

A tibble with:

  • sarc_f_score (numeric 0-10; NA if any component is NA)

  • sarc_f_high_risk (logical; TRUE if score >= 4, NA if score is NA)

Details

SARC-F has 5 items: Strength, Assistance in walking, Rise from a chair, Climb stairs, and Falls. Each item is scored 0 (no difficulty) to 2 (high difficulty). Total SARC-F score ranges 0-10. A score >= 4 indicates high risk of sarcopenia and suggests further assessment.

References

Malmstrom TK, Morley JE (2013). “SARC-F: a simple questionnaire to rapidly diagnose sarcopenia.” Journal of the American Medical Directors Association, 14(8), 531–532. doi:10.1016/j.jamda.2013.05.018 . ; Malmstrom TK, Miller DK, Simonsick EM, Ferrucci L, Morley JE (2015). “SARC-F: a symptom score to predict persons with sarcopenia at risk for poor functional outcomes.” Journal of Cachexia, Sarcopenia and Muscle, 7(1), 28–36. doi:10.1002/jcsm.12048 .

Examples

df <- data.frame(Strength = c(1, 2, 0), Walking = c(0, 1, 2),
                 Chair = c(1, 1, 2), Stairs = c(0, 2, 2), Falls = c(0, 1, 1))
sarc_f_score(df)
#> # A tibble: 3 × 2
#>   sarc_f_score sarc_f_high_risk
#>          <dbl> <lgl>           
#> 1            2 FALSE           
#> 2            7 TRUE            
#> 3            7 TRUE