opt <- options()
options(fmt.num=structure(list(digits=1, big.mark="'"), class="fmt"))
options(fmt.per=structure(list(digits=1, fmt="%"), class="fmt"))
options(fmt.abs=structure(list(digits=0, big.mark="'"), class="fmt"))
TOne(x = d.pizza[, c("temperature","delivery_min","driver","wine_ordered")],
grp=d.pizza$quality)
options(opt)
wrd <- GetNewWrd()
WrdTable(TOne(x = d.pizza[, c("temperature","delivery_min","driver","wine_ordered")],
grp=d.pizza$quality))
Run the code above in your browser using DataLab