library(mlogit)
disease <- read.csv(file=’Desktop/MHD并心力衰竭/MHD并心力衰竭/Sheet1-表格 1.csv’) #读取数据csv并赋值给disease这个变量
格式化数据
```{r dataint}
disease.full <- mlogit.data(data=disease,choice="心力衰竭",shape= "wide") #把格式化后的数据赋值给disease.full这个变量
<div class="se-preview-section-delimiter"></div>
回归分析
disease.fit<- mlogit(心力衰竭~0|年龄+性别+透析龄+血红蛋白+血清白蛋白+血清尿素氮+血清肌酐+血钙+血磷+高血压+冠心病+动静脉造瘘术+糖尿病+心脏病,data=disease.full) #把回归分析的结果赋值给disease.fit变量
summary(disease.fit) #查看回归分析的结果
“`