Practical way to label factors


```
library(memisc)
labels(anemia$anem)<-c("not anemic"=0, "anemic"=1) #library memisc
```

Introduction to the Analysis of Survival Data in the Presence of Competing Risks

 https://www.ncbi.nlm.nih.gov/pmc/articles/PMC4741409/