,
Devon Bartlett [aut]| Title: | Calculate Clinical Scores for Hidradenitis Suppurativa (HS), a Dermatologic Disease |
|---|---|
| Description: | Calculate clinical scores for hidradenitis suppurativa (HS), a dermatologic disease. The scores are typically used for evaluation of efficacy in clinical trials. The scores are not commonly used in clinical practice. The specific scores implemented are Hidradenitis Suppurativa Clinical Response (HiSCR) (Kimball, et al. (2015) <doi:10.1111/jdv.13216>), Hidradenitis Suppurativa Area and Severity Index Revised (HASI-R) (Goldfarb, et al. (2020) <doi:10.1111/bjd.19565>), hidradenitis suppurativa Physician Global Assessment (HS PGA) (Marzano, et al. (2020) <doi:10.1111/jdv.16328>), and the International Hidradenitis Suppurativa Severity Score System (IHS4) (Zouboulis, et al. (2017) <doi:10.1111/bjd.15748>). |
| Authors: | Bill Denney [aut, cre] ,
Devon Bartlett [aut] |
| Maintainer: | Bill Denney <[email protected]> |
| License: | GPL (>= 3) |
| Version: | 1.0.1 |
| Built: | 2024-11-03 04:57:25 UTC |
| Source: | https://github.com/humanpred/hidradenitis |
Converts BSA percentage to the ordinal scale for HASI-R scoring.
hasi_bsa_to_ordinal( bsa_percent_within_site = NULL, bsa_percent_total_body = NULL, bsa_ordinal = NULL, bodysite = NULL )hasi_bsa_to_ordinal( bsa_percent_within_site = NULL, bsa_percent_total_body = NULL, bsa_ordinal = NULL, bodysite = NULL )
bsa_percent_within_site |
Numeric vector representing BSA percentages (0-100) |
bsa_percent_total_body |
Numeric vector representing BSA percentages (0-15, depending on site) |
bsa_ordinal |
Numeric vector representing BSA values. (0-6) |
bodysite |
Optional character vector representing body sites |
Integer vector representing the ordinal scale values
Goldfarb N, Lowes MA, Butt M, King T, Alavi A, Kirby JS. Hidradenitis Suppurativa Area and Severity Index Revised (HASI-R): psychometric property assessment. Br J Dermatol. 2021 May;184(5):905-912. doi: 10.1111/bjd.19565. Epub 2020 Dec 30. PMID: 32969027; PMCID: PMC8573730.
Other HASI:
hasi_r_num()
hasi_bsa_to_ordinal(c(0, 2, 5, 12, 25, 40, 75))hasi_bsa_to_ordinal(c(0, 2, 5, 12, 25, 40, 75))
Calculates the HASI-R score for each patient and visit.
hasi_r_num( bsa_percent_within_site = NULL, bsa_percent_total_body = NULL, bsa_ordinal = NULL, bodysite = NULL, inflam_color_chg, induration, open_skin_surface, tunnels )hasi_r_num( bsa_percent_within_site = NULL, bsa_percent_total_body = NULL, bsa_ordinal = NULL, bodysite = NULL, inflam_color_chg, induration, open_skin_surface, tunnels )
bsa_percent_within_site |
Numeric vector representing BSA percentages (0-100) |
bsa_percent_total_body |
Numeric vector representing BSA percentages (0-15, depending on site) |
bsa_ordinal |
Numeric vector representing BSA values. (0-6) |
bodysite |
Optional character vector representing body sites |
inflam_color_chg |
Integer vector representing inflammatory color change scores (0-3). |
induration |
Integer vector representing induration scores (0-3). |
open_skin_surface |
Integer vector representing open skin surface scores (0-3). |
tunnels |
Integer vector representing tunnels scores (0-3). |
A numeric vector of the calculated HASI-R score
Goldfarb N, Lowes MA, Butt M, King T, Alavi A, Kirby JS. Hidradenitis Suppurativa Area and Severity Index Revised (HASI-R): psychometric property assessment. Br J Dermatol. 2021 May;184(5):905-912. doi: 10.1111/bjd.19565. Epub 2020 Dec 30. PMID: 32969027; PMCID: PMC8573730.
Other HASI:
hasi_bsa_to_ordinal()
hasi_r_num( bsa_percent_within_site = c(0, 0, 0, 0, 5, 1, 4.3, 1.2, 6.8, 7.2), bodysite = c("Right Axilla", "Buttocks including Intergluteal Cleft", "Back", "Left Thigh", "Head & Neck", "Left Axilla", "Chest", "Pubis & Genitals", "Abdomen", "Right Thigh"), inflam_color_chg = c(0, 0, 0, 0, 2, 3, 1, 3, 2, 0), induration = c(0, 0, 0, 0, 2, 3, 1, 3, 2, 0), open_skin_surface = c(0, 0, 0, 0, 2, 3, 1, 3, 2, 0), tunnels = c(0, 0, 0, 0, 2, 3, 1, 3, 2, 0) )hasi_r_num( bsa_percent_within_site = c(0, 0, 0, 0, 5, 1, 4.3, 1.2, 6.8, 7.2), bodysite = c("Right Axilla", "Buttocks including Intergluteal Cleft", "Back", "Left Thigh", "Head & Neck", "Left Axilla", "Chest", "Pubis & Genitals", "Abdomen", "Right Thigh"), inflam_color_chg = c(0, 0, 0, 0, 2, 3, 1, 3, 2, 0), induration = c(0, 0, 0, 0, 2, 3, 1, 3, 2, 0), open_skin_surface = c(0, 0, 0, 0, 2, 3, 1, 3, 2, 0), tunnels = c(0, 0, 0, 0, 2, 3, 1, 3, 2, 0) )
Calculates HiSCR scores given a percentage parameter.
hiscr( baseline_abscess, baseline_nodule, baseline_fistula, timepoint_abscess, timepoint_nodule, timepoint_fistula, percentage )hiscr( baseline_abscess, baseline_nodule, baseline_fistula, timepoint_abscess, timepoint_nodule, timepoint_fistula, percentage )
baseline_abscess |
Integer vector representing the abscess count at baseline. |
baseline_nodule |
Integer vector representing the inflammatory nodule count at baseline. |
baseline_fistula |
Integer vector representing the draining fistula count at baseline. |
timepoint_abscess |
Integer vector representing the abscess count at the time point of interest. |
timepoint_nodule |
Integer vector representing the inflammatory nodule count at the time point of interest. |
timepoint_fistula |
Integer vector representing the draining fistula count at the time point of interest. |
percentage |
Numeric value specifying the percentage required for HiSCR (e.g., 50 for HiSCR50, 75 for HiSCR75, etc.). |
A logical vector indicating whether the HiSCR response is achieved for each set of input parameters.
Kimball, A B et al. “HiSCR (Hidradenitis Suppurativa Clinical Response): a novel clinical endpoint to evaluate therapeutic outcomes in patients with hidradenitis suppurativa from the placebo-controlled portion of a phase 2 adalimumab study.” Journal of the European Academy of Dermatology and Venereology : JEADV vol. 30,6 (2016): 989-94. doi:10.1111/jdv.13216
hiscr( baseline_abscess = c(3, 2, 4), baseline_nodule = c(5, 4, 6), baseline_fistula = c(2, 1, 3), timepoint_abscess = c(1, 1, 2), timepoint_nodule = c(2, 3, 2), timepoint_fistula = c(2, 1, 3), percentage = 50 )hiscr( baseline_abscess = c(3, 2, 4), baseline_nodule = c(5, 4, 6), baseline_fistula = c(2, 1, 3), timepoint_abscess = c(1, 1, 2), timepoint_nodule = c(2, 3, 2), timepoint_fistula = c(2, 1, 3), percentage = 50 )
Converts HS-PGA numerical scores to character values.
hs_pga_char(hs_pga_scores)hs_pga_char(hs_pga_scores)
hs_pga_scores |
Integer vector representing the HS-PGA scores (1: Clean, 2: Minimal, 3: Mild, 4: Moderate, 5: Severe, 6: Very Severe). |
A character vector representing the corresponding HS-PGA categories.
Marzano, A V et al. “Creation of a severity index for hidradenitis suppurativa that includes a validated quality-of-life measure: the HIDRAscore.” Journal of the European Academy of Dermatology and Venereology : JEADV vol. 34,8 (2020): 1815-1821. doi:10.1111/jdv.16328
Other HS-PGA:
hs_pga_num()
hs_pga_char(c(1, 2, 3, 4, 5, 6))hs_pga_char(c(1, 2, 3, 4, 5, 6))
Calculates HS-PGA scores based on abscess, draining fistula, and inflammatory nodule counts.
hs_pga_num(abscess_fistula, inflammatory_nodule, non_inflammatory_nodule)hs_pga_num(abscess_fistula, inflammatory_nodule, non_inflammatory_nodule)
abscess_fistula |
Integer vector representing the sum of abscess and draining fistula counts. |
inflammatory_nodule |
Integer vector representing the inflammatory nodule count. |
non_inflammatory_nodule |
Integer vector representing the non-inflammatory nodule count. |
An integer vector representing the HS-PGA scores (1: Clean, 2: Minimal, 3: Mild, 4: Moderate, 5: Severe, 6: Very Severe)
Marzano, A V et al. “Creation of a severity index for hidradenitis suppurativa that includes a validated quality-of-life measure: the HIDRAscore.” Journal of the European Academy of Dermatology and Venereology : JEADV vol. 34,8 (2020): 1815-1821. doi:10.1111/jdv.16328
Other HS-PGA:
hs_pga_char()
hs_pga_num( abscess_fistula = c(0, 0, 1, 0, 1, 2, 6), inflammatory_nodule = c(0, 0, 0, 3, 5, 8, 12), non_inflammatory_nodule = c(0, 1, 0, 0, 0, 0, 0) )hs_pga_num( abscess_fistula = c(0, 0, 1, 0, 1, 2, 6), inflammatory_nodule = c(0, 0, 0, 3, 5, 8, 12), non_inflammatory_nodule = c(0, 1, 0, 0, 0, 0, 0) )
Converts IHS4 numerical scores to character values.
ihs4_char(ihs4_scores)ihs4_char(ihs4_scores)
ihs4_scores |
Integer vector representing the IHS4 scores (0-3: Mild, 4-10: Moderate, >=11: Severe). |
A character vector representing the corresponding IHS4 categories
Zouboulis, C C et al. “Development and validation of the International Hidradenitis Suppurativa Severity Score System (IHS4), a novel dynamic scoring system to assess HS severity.” The British journal of dermatology vol. 177,5 (2017): 1401-1409. doi:10.1111/bjd.15748
Other IHS4:
ihs4_num()
ihs4_char(c(2, 5, 12))ihs4_char(c(2, 5, 12))
Calculates IHS4 scores based on abscess, draining fistula, and inflammatory nodule counts.
ihs4_num(nodules, abscesses, draining_tunnels)ihs4_num(nodules, abscesses, draining_tunnels)
nodules |
Integer vector representing the nodule count |
abscesses |
Integer vector representing the abscess count |
draining_tunnels |
Integer vector representing the draining tunnel count |
An integer vector representing the IHS4 scores (0-3: Mild, 4-10: Moderate, 11- : Severe).
Zouboulis, C C et al. “Development and validation of the International Hidradenitis Suppurativa Severity Score System (IHS4), a novel dynamic scoring system to assess HS severity.” The British journal of dermatology vol. 177,5 (2017): 1401-1409. doi:10.1111/bjd.15748
Other IHS4:
ihs4_char()
ihs4_num( nodules = c(5, 3, 2), abscesses = c(2, 1, 0), draining_tunnels = c(1, 2, 3) )ihs4_num( nodules = c(5, 3, 2), abscesses = c(2, 1, 0), draining_tunnels = c(1, 2, 3) )