# Training data about imaginary employees in small firm
# load like
if(0){
d <- read.table("d.txt", h=T)
d$size <- ordered(d$size, levels=c("S", "M", "L", "XL", "XXL"))
}
#
weight	weight, kg
height	height, cm
size	T-shirt size
sex	sex