amscorer (version 0.1.0)

epices_score: Calculate EPICES Score

Description

This function calculates the EPICES score, which is used to investigate the relationship between social precariousness and risk factors. The EPICES score is an individual and quantitative scale based on 11 questions regarding material and social problems. Visit https://www.santepubliquefrance.fr/docs/le-score-epices-un-score-individuel-de-precarite.-construction-du-score-et-mesure-des-relations-avec-des-donnees-de-sante-dans-une-population-de for more information.

Usage

epices_score(my_data, prefix = "epices", replace_na_with_zero = FALSE)

Value

A data frame with an additional column "epices_score" containing the calculated EPICES scores. Returns NA for cases with missing values.

Arguments

my_data

A data frame containing the necessary columns for the EPICES score calculation (11 columns). Yes/no responses should be coded as yes-1, no-0.

prefix

A string prefix for the column names (default is "epices").

replace_na_with_zero

A boolean indicating whether to replace NA values with zero (default is TRUE).

Details

The data frame should contain the EPICES items ordered from 1 to 11::

• epices_1 : Do you sometimes meet with a social worker?

• epices_2 : Do you have supplementary health insurance?

• epices_3 : Do you live with a partner?

• epices_4 : Do you own your home?

• epices_5 : Are there times during the month when you experience real financial difficulties in meeting your needs (food, rent, electricity, etc.)?

• epices_6 : Have you done any sports in the past 12 months?

• epices_7 : Have you been to a show in the past 12 months?

• epices_8 : Have you gone on vacation in the past 12 months?

• epices_9 : In the past 6 months, have you had contact with family members other than your parents or children?

• epices_10 : In case of difficulties, are there people in your surroundings whom you can rely on to accommodate you for a few days if needed?

• epices_11 : In case of difficulties, are there people in your surroundings whom you can rely on to provide you with material assistance?

References

Sass et al. (2006) doi:10.1007/s10332-006-0131-5,

Examples

my_data <- data.frame(
epices_1 = c(1, 0, 1),
epices_2 = c(0, 1, 1),
epices_3 = c(0, 0, 0),
epices_4 = c(1, 0, 0),
epices_5 = c(0, 1, 0),
epices_6 = c(1, 0, 1),
epices_7 = c(0, 1, 0),
epices_8 = c(0, 0, 1),
epices_9 = c(1, 1, 0),
epices_10 = c(0, 0, 1),
epices_11 = c(1, 0, NA)
)
epices_score(my_data, prefix = "epices", replace_na_with_zero = FALSE)