33<!-- badges: start -->
44[ ![ R-CMD-check] ( https://github.com/billdenney/hidradenitis/actions/workflows/R-CMD-check.yaml/badge.svg )] ( https://github.com/billdenney/hidradenitis/actions/workflows/R-CMD-check.yaml )
55[ ![ Codecov test coverage] ( https://codecov.io/gh/billdenney/hidradenitis/branch/main/graph/badge.svg )] ( https://app.codecov.io/gh/billdenney/hidradenitis?branch=main )
6+ [ ![ CRAN status] ( https://www.r-pkg.org/badges/version/hidradenitis )] ( https://CRAN.R-project.org/package=hidradenitis )
7+ [ ![ CodeFactor] ( https://www.codefactor.io/repository/github/billdenney/hidradenitis/badge )] ( https://www.codefactor.io/repository/github/billdenney/hidradenitis )
68<!-- badges: end -->
79
8- The goal of hidradenitis is to ...
10+ The goal of the ` hidradenitis ` package is to support use and interpretation of
11+ clinical scores for hidradenitis suppurativa.
912
1013## Installation
1114
15+ ### Stable version
16+
17+ You can install the stable version of hidradenitis from CRAN with:
18+
19+ ``` r
20+ install.packages(" devtools" )
21+ ```
22+
23+ ### Development version
24+
1225You can install the development version of hidradenitis from [ GitHub] ( https://github.com/ ) with:
1326
1427``` r
@@ -22,5 +35,43 @@ This is a basic example which shows you how to solve a common problem:
2235
2336``` r
2437library(hidradenitis )
25- # # basic example code
38+
39+ hasi_r_num(
40+ bsa_percent_within_site = c(0 , 0 , 0 , 0 , 5 , 1 , 4.3 , 1.2 , 6.8 , 7.2 ),
41+ bodysite =
42+ c(" Right Axilla" , " Buttocks including Intergluteal Cleft" ,
43+ " Back" , " Left Thigh" , " Head & Neck" , " Left Axilla" ,
44+ " Chest" , " Pubis & Genitals" , " Abdomen" , " Right Thigh" ),
45+ inflam_color_chg = c(0 , 0 , 0 , 0 , 2 , 3 , 1 , 3 , 2 , 0 ),
46+ induration = c(0 , 0 , 0 , 0 , 2 , 3 , 1 , 3 , 2 , 0 ),
47+ open_skin_surface = c(0 , 0 , 0 , 0 , 2 , 3 , 1 , 3 , 2 , 0 ),
48+ tunnels = c(0 , 0 , 0 , 0 , 2 , 3 , 1 , 3 , 2 , 0 )
49+ )
50+
51+ hiscr(
52+ baseline_abscess = c(3 , 2 , 4 ),
53+ baseline_nodule = c(5 , 4 , 6 ),
54+ baseline_fistula = c(2 , 1 , 3 ),
55+ timepoint_abscess = c(1 , 1 , 2 ),
56+ timepoint_nodule = c(2 , 3 , 2 ),
57+ timepoint_fistula = c(2 , 1 , 3 ),
58+ percentage = 50
59+ )
60+
61+ hs_pga <-
62+ hs_pga_num(
63+ abscess_fistula = c(0 , 0 , 1 , 0 , 1 , 2 , 6 ),
64+ inflammatory_nodule = c(0 , 0 , 0 , 3 , 5 , 8 , 12 ),
65+ non_inflammatory_nodule = c(0 , 1 , 0 , 0 , 0 , 0 , 0 )
66+ )
67+ hs_pga_char(hs_pga )
68+
69+ ihs4 <-
70+ ihs4_num(
71+ nodules = c(5 , 3 , 2 ),
72+ abscesses = c(2 , 1 , 0 ),
73+ draining_tunnels = c(1 , 2 , 3 )
74+ )
75+ ihs4_char(ihs4 )
76+
2677```
0 commit comments