EVOLUTION-MANAGER
Edit File: transplant.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>R: Liver transplant waiting list</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <link rel="stylesheet" type="text/css" href="R.css" /> </head><body> <table width="100%" summary="page for transplant {survival}"><tr><td>transplant {survival}</td><td style="text-align: right;">R Documentation</td></tr></table> <h2>Liver transplant waiting list</h2> <h3>Description</h3> <p>Subjects on a liver transplant waiting list from 1990-1999, and their disposition: received a transplant, died while waiting, withdrew from the list, or censored. </p> <h3>Usage</h3> <pre>data("transplant")</pre> <h3>Format</h3> <p>A data frame with 815 (transplant) or 861 (transplant2) observations on the following 6 variables. </p> <dl> <dt><code>age</code></dt><dd><p>age at addition to the waiting list</p> </dd> <dt><code>sex</code></dt><dd><p><code>m</code> or <code>f</code></p> </dd> <dt><code>abo</code></dt><dd><p>blood type: <code>A</code>, <code>B</code>, <code>AB</code> or <code>O</code></p> </dd> <dt><code>year</code></dt><dd><p>year in which they entered the waiting list</p> </dd> <dt><code>futime</code></dt><dd><p>time from entry to final disposition</p> </dd> <dt><code>event</code></dt><dd><p>final disposition: <code>censored</code>, <code>death</code>, <code>ltx</code> or <code>withdraw</code></p> </dd> <dt><code>creat</code></dt><dd><p>serum creatinine</p> </dd> <dt><code>bili</code></dt><dd><p>serum bilirubin</p> </dd> <dt><code>inr</code></dt><dd><p>International Normalized Ratio, a measure of the blood's clotting ability</p> </dd> <dt><code>meld</code></dt><dd><p>calculated MELD score</p> </dd> <dt>diag</dt><dd><p>primary diagnosis: alcoholic liver disease, cholestatic liver disease, hepatitis B, hepatitis C, or other</p> </dd> </dl> <h3>Details</h3> <p>This represents the transplant experience in a particular region, over a time period in which liver transplant became much more widely recognized as a viable treatment modality. The number of liver transplants rises over the period, but the number of subjects added to the liver transplant waiting list grew much faster. Important questions addressed by the data are the change in waiting time, who waits, and whether there was an consequent increase in deaths while on the list. </p> <p>Blood type is an important consideration. Donor livers from subjects with blood type O can be used by patients with A, B, AB or 0 blood types, whereas an AB liver can only be used by an AB recipient. Thus type O subjects on the waiting list are at a disadvantage, since the pool of competitors is larger for type O donor livers. </p> <p>This data is of historical interest and provides a useful example of competing risks, but it has little relevance to current practice. Liver allocation policies have evolved and now depend directly on each individual patient's risk and need, assessments of which are regularly updated while a patient is on the waiting list. The overall organ shortage remains acute, however. </p> <p>The <code>transplant</code> data set was a version used early in the analysis, <code>transplant2</code> has several additions and corrections, and was the final data set and matches the paper. </p> <h3>References</h3> <p>Kim WR, Therneau TM, Benson JT, Kremers WK, Rosen CB, Gores GJ, Dickson ER. Deaths on the liver transplant waiting list: An analysis of competing risks. Hepatology 2006 Feb; 43(2):345-51. </p> <h3>Examples</h3> <pre> #since event is a factor, survfit creates competing risk curves pfit <- survfit(Surv(futime, event) ~ abo, transplant) pfit[,2] #time to liver transplant, by blood type plot(pfit[,2], mark.time=FALSE, col=1:4, lwd=2, xmax=735, xscale=30.5, xlab="Months", ylab="Fraction transplanted", xaxt = 'n') temp <- c(0, 6, 12, 18, 24) axis(1, temp*30.5, temp) legend(450, .35, levels(transplant$abo), lty=1, col=1:4, lwd=2) # competing risks for type O plot(pfit[4,], xscale=30.5, xmax=735, col=1:3, lwd=2) legend(450, .4, c("Death", "Transpant", "Withdrawal"), col=1:3, lwd=2) </pre> <hr /><div style="text-align: center;">[Package <em>survival</em> version 2.44-1.1 <a href="00Index.html">Index</a>]</div> </body></html>