vtree
##https://rpubs.com/nbarrowman/pruning_a_variable_tree
library(vtree)
head(FakeData)
## id Group Severity Sex Age Male Score Category Pre Post
## 1 101 A Mild M 3 1 3 single 1.9247010 3.0769750
## 2 102 B Mild M 4 1 10 single 1.9304230 2.9377850
## 3 103 A <NA> M 5 1 11 double -0.4614235 -2.6030790
## 4 104 B Mild M 3 1 5 triple -0.2445019 NA
## 5 105 A Mild M NA 1 6 triple 0.1714768 -0.9834192
## 6 106 B Mild M 5 1 7 triple -2.4698210 -3.7404160
## Post2 Event Time Ind1 Ind2 Ind3 Ind4 Viral
## 1 3.056339 1 0.9777102 1 1 1 1 TRUE
## 2 7.062892 0 4.0000000 1 0 1 1 FALSE
## 3 2.141718 1 1.8427230 1 1 NA 1 FALSE
## 4 6.665096 1 0.3930381 1 0 1 1 NA
## 5 3.414902 1 0.1331918 1 1 1 1 FALSE
## 6 -0.786803 1 0.5591052 NA 0 0 1 NA
vtree(FakeData,"Severity Category Group Sex",horiz=FALSE,height=200,width=900)
vtree(FakeData,"Severity Category Group Sex",horiz=FALSE,height=200,width=900,
prune=list(Severity="Moderate"))
vtree(FakeData,"Severity Category Group Sex",horiz=FALSE,height=250,width=600,
prune=list(Severity=c("Mild","Moderate")))
vtree(FakeData,"Severity Category Group Sex",horiz=FALSE,height=250,width=600,
prune=list(Severity=c("Mild","Moderate")),keep=list(Group="A"))
vtree(FakeData,"Severity Sex Age Category",sameline=TRUE,prunesmaller=3)
