# NOT RUN {
data(HairEyeColor)
print.char.matrix(HairEyeColor[ , , "Male"], col.names = TRUE)
print.char.matrix(HairEyeColor[ , , "Female"], col.txt.align = "left", col.names = TRUE)
z <- rbind(c("", "N", "y"),
c("[ 1.34,40.3)\n[40.30,48.5)\n[48.49,58.4)\n[58.44,87.8]",
" 50\n 50\n 50\n 50",
"0.530\n0.489\n0.514\n0.507"),
c("female\nmale", " 94\n106", "0.552\n0.473" ),
c("", "200", "0.510"))
dimnames(z) <- list(c("", "age", "sex", "Overall"),NULL)
print.char.matrix(z)
# }
Run the code above in your browser using DataLab