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)
[40.30,48.5)
[48.49,58.4)
[58.44,87.8]",
"50
50
50
50",
"0.530
0.489
0.514
0.507"),
c("female
male", "94
106", "0.552
0.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 DataCamp Workspace