acrEularRA: Helper function for creating an acrEularRA class.

In fragla/acreular: Methods for Calculating 'ACR' and 'EULAR' based Scores and Classifications

Description

Creates an acrEular RA object from different parameters. Converts dates to duration value and serology and acute phase reactant values to classifications.

Usage

acrEularRA(
  ljc = numeric(),
  sjc = numeric(),
  duration = numeric(),
  onset = NULL,
  assessment = NULL,
  apr = character(),
  crp = numeric(),
  esr = numeric(),
  crp.uln = 10,
  esr.uln = 15,
  serology = character(),
  ccp = numeric(),
  rf = numeric(),
  ccp.uln = 10,
  rf.uln = 20
)

Arguments

ljc	large joint count. Numeric between 0 and 10 of total number of swollen and/or tender large joints.
sjc	small joint count. Numeric between 0 and 18 of total number of swollen and/or tender small joints.
duration	numeric patient’s self-report on the maximum duration (in days) of signs and symptoms of any joint that is clinically involved at the time of assessment.
onset	Date signs and symptoms started.
assessment	Date of initial assessment.
apr	character acute phase reactant levels. "Normal" or "Abnormal"
crp	numeric of C-reactive protein test result.
esr	numeric of erythrocyte sedimentation rate test result.
crp.uln	numeric for upper limit of normal for the C-reactive protein test.
esr.uln	numeric for upper limit of normal for the erythrocyte sedimentation rate test.
serology	character CCP and/or rheumatoid factor levels. "Negative", "Low" positive or "High" positive.
ccp	numeric of ccp test result.
rf	numeric of rheumatoid factor test result.
ccp.uln	numeric for upper limit of normal for the ccp test
rf.uln	numeric for upper limit of normal for the RF test

Value

An acrEularRA object.

Examples

 obj1 <- acrEularRA(ljc=8, sjc=12, duration=43, apr="Normal", serology="High")
 obj2 <- acrEularRA(ljc=8, sjc=12,
             onset=as.Date("2010-01-01"), assessment=as.Date("2010-02-13"),
             crp=5, esr=12, ccp=32, rf=71)

 all.equal(obj1, obj2)

fragla/acreular documentation built on June 8, 2020, 2:46 p.m.