is_setosa <- iris$Species == "setosa"
m_tbl <- rtable(
header = rheader(
rrow(row.name = NULL, rcell("Sepal.Length", colspan = 2), rcell("Petal.Length", colspan = 2)),
rrow(NULL, "mean", "median", "mean", "median")
),
rrow(
row.name = "All Species",
mean(iris$Sepal.Length), median(iris$Sepal.Length),
mean(iris$Petal.Length), median(iris$Petal.Length),
format = "xx.xx"
),
rrow(
row.name = "Setosa",
mean(iris$Sepal.Length[is_setosa]), median(iris$Sepal.Length[is_setosa]),
mean(iris$Petal.Length[is_setosa]), median(iris$Petal.Length[is_setosa]),
format = "xx.xx"
)
)
indent(m_tbl)
indent(m_tbl, 2)
Run the code above in your browser using DataLab