ich.score: Intracerebral hemorrage score
In CCVR/inteRn: What the package does (short line)

Description Usage Arguments Value Author(s) References Examples

Estimates mortality of patients with intracerebral hemorrage based on age and CT findings.

ich.score(
  glasgow.score = 15,
  age = 80,
  ich.volume = 30,
  intraventricular = "no",
  infratentorial = "no"
)

`glasgow.score`	Integer value corresponding to the Glasgow comma scale.
`age`	Integer value corresponding to the patient's age.
`ich.volume`	Numerical value corresponding to the volume of the intracerebral hemorrage.
`intraventricular`	String value. "yes" if hemorrage is intraventricular. Please use lower case.
`infratentorial`	String value. "yes" if hemorrage is infratentorial. Please use lower case.

Integer value reporting the ICH score.Score of 0 corresponds to 0 percent mortality. Score of 1 corresponds to 13 percent mortality. Score of 2 corresponds to 26 percent mortality. Score of 3 corresponds to 72 percent mortality. Score of 4 corresponds to 94 percent mortality. Score of 5 corresponds to 100 percent mortality. Score of 6* corresponds to 100 percent mortality.

Carlos C Vera Recio

Hemphill, J C 3rd et al. “The ICH score: a simple, reliable grading scale for intracerebral hemorrhage.” Stroke vol. 32,4 (2001): 891-7. doi:10.1161/01.str.32.4.891

# Infratentorial hemorrage
ich.score(
  glasgow.score = 15,
  age = 80,
  ich.volume = 30,
  intraventricular = "no",
  infratentorial = "yes"
)

# Supratentorial & intraventricular hemorrage
ich.score(
  glasgow.score = 15,
  age = 80,
  ich.volume = 30,
  intraventricular = "yes",
  infratentorial = "no"
)

## The function is currently defined as
function (glasgow.score = 15, age = 80, ich.volume = 30, intraventricular = "no", 
    infratentorial = "no") 
{
    score = 0
    if (age > 79) {
        score = score + 1
    }
    if (ich.volume >= 30) {
        score = score + 1
    }
    if (glasgow.score > 11) {
        score = score + 0
    }
    else if (glasgow.score > 4 & glasgow.score < 12) {
        score = score + 1
    }
    else if (glasgow.score < 5) {
        score = score + 2
    }
    if (intraventricular == "yes") {
        score = score + 1
    }
    if (infratentorial == "yes") {
        score = score + 1
    }
    cat("ich score is: ", score)
    cat("", sep = "\n")
    return(score)
  }