TOne(x = d.pizza[, c("temperature","delivery_min","driver","wine_ordered")],
grp=d.pizza$quality)
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