knitr::opts_chunk$set(echo = TRUE)
library(vtree)
(v1 <- vtree(FakeData,"Severity Sex"))
grVizToPNG(v1,width=3000,folder="png")
(v2 <- vtree(FakeData,"Group",horiz=FALSE))
grVizToPNG(v2,width=3000,folder="png")
(v3 <- vtree(FakeData,"Severity Sex",
  showlegend=TRUE,sameline=TRUE))
grVizToPNG(v3,width=3000,folder="png")
(v4 <- vtree(FakeData,"Severity Sex",
  prune=list(Severity=c("Mild","Moderate"))))
grVizToPNG(v4,width=3000,folder="png")
(v5 <- vtree(FakeData,"Severity Sex",
  prunebelow=list(Severity=c("Mild","Moderate"))))
grVizToPNG(v5,width=3000,folder="png")
(v6 <- vtree(FakeData,"Severity Sex",
  keep=list(Severity=c("Mild","NA"))))
grVizToPNG(v6,width=3000,folder="png")
(v7 <- vtree(FakeData,"Severity Sex",
  follow=list(Severity=c("Mild","NA"))))
grVizToPNG(v7,width=3000,folder="png")
(v8 <- vtree(FakeData,"Group Severity",sameline=TRUE,
  text=list(Severity=c(Mild="\n*or none*"))))
grVizToPNG(v8,width=3000,folder="png")
(v9 <- vtree(FakeData,"Severity Age Pre Post",check.is.na=TRUE))
grVizToPNG(v9,width=3000,folder="png")
(v10 <- vtree(FakeData,"Severity",sameline=TRUE,
  summary="Score \n mean=%mean%"))
grVizToPNG(v10,width=3000,folder="png")


nbarrowman/vtree documentation built on Jan. 11, 2024, 5:52 a.m.