library(boot)
library(dplyr)
library(magrittr)
library(yamlet)
rm(melanoma)
melanoma %<>% select(-time, -year)
melanoma %<>% decorate('
time: [ Survival Time Since Operation, day ]
status: [ End of Study Patient Status,
[ Alive: 2, Melanoma Death: 1, Unrelated Death: 3 ]]
sex: [ Sex, [ Male: 1, Female: 0 ]]
age: [ Age at Time of Operation, year ]
thickness: [ Tumor Thickness, mm ]
ulcer: [ Ulceration, [ Absent: 0, Present: 1 ]]
')
melanoma %<>% resolve
melanoma %<>% group_by(status, ulcer)
melanoma %<>% tablet
melanoma %>% header_rows
melanoma %>% as_kable
melanoma %>% tablette
melanoma %>% tablette %>% tablet
identical(melanoma, tablet(tablette(melanoma)))
Run the code above in your browser using DataLab