Nothing
## -----------------------------------------------------------------------------
library(vtable)
st(iris)
## ---- eval=FALSE--------------------------------------------------------------
# sumtable(data,
# vars=NA,
# out=NA,
# file=NA,
# summ=NA,
# summ.names=NA,
# add.median=FALSE,
# group=NA,
# group.long=FALSE,
# group.test=FALSE,
# group.weights =NA,
# col.breaks=NA,
# digits=2,
# fixed.digits=FALSE,
# numformat = formatfunc(digits = digits, big.mark = ''),
# skip.format = c('notNA(x)','propNA(x)','countNA(x)'),
# factor.percent=TRUE,
# factor.counts=TRUE,
# factor.numeric=FALSE,
# logical.numeric=FALSE,
# logical.labels=c('No','Yes'),
# labels=NA,
# title='Summary Statistics',
# note = NA,
# anchor=NA,
# col.width=NA,
# col.align=NA,
# align=NA,
# note.align='l',
# fit.page=NA,
# simple.kable=FALSE,
# obs.function=NA)
# opts=list())
## ---- eval = FALSE------------------------------------------------------------
# data(LifeCycleSavings)
# st(LifeCycleSavings, vars = c('pop15','pop75'))
## ---- eval = FALSE------------------------------------------------------------
# data(LifeCycleSavings)
# sumtable(LifeCycleSavings)
# vartable <- vtable(LifeCycleSavings,out='return')
#
# #I can easily \input this into my LaTeX doc:
# vt(LifeCycleSavings,out='latex',file='mytable1.tex')
## ---- eval=FALSE--------------------------------------------------------------
# data(LifeCycleSavings)
# st(LifeCycleSavings,file='lifecycle_summary')
## -----------------------------------------------------------------------------
sumtable(iris,
summ=c('notNA(x)',
'mean(x)',
'median(x)',
'propNA(x)'))
## -----------------------------------------------------------------------------
#Getting complex
st(iris, col.breaks = 4,
summ = list(
c('notNA(x)','mean(x)','sd(x^2)','min(x)','max(x)'),
c('notNA(x)','mean(x)')
),
summ.names = list(
c('N','Mean','SD of X^2','Min','Max'),
c('Count','Percent')
))
## -----------------------------------------------------------------------------
st(iris, group = 'Species', group.test = TRUE)
## -----------------------------------------------------------------------------
st(iris, group = 'Species', group.long = TRUE)
## -----------------------------------------------------------------------------
#Let's put species in a column by itself
#There are five variables here, Species is last,
#so break the column after the first four variables.
st(iris, col.breaks = 4)
## -----------------------------------------------------------------------------
#Why not three columns?
sumtable(mtcars, col.breaks = c(4,8))
## -----------------------------------------------------------------------------
st(iris, digits = 5)
## -----------------------------------------------------------------------------
st(iris, digits = 3, fixed.digits = TRUE, numformat = NA)
## -----------------------------------------------------------------------------
st(iris, numformat = c('|cm', 'Sepal.Width' = 'percent'))
## -----------------------------------------------------------------------------
st(iris, factor.percent = FALSE, factor.counts = FALSE)
## -----------------------------------------------------------------------------
st(iris, factor.numeric = TRUE)
## -----------------------------------------------------------------------------
#Note that LifeCycleSavings has five variables
data(LifeCycleSavings)
#These variable labels are taken from help(LifeCycleSavings)
labs <- c('numeric aggregate personal savings',
'numeric % of population under 15',
'numeric % of population over 75',
NA,
'numeric % growth rate of dpi')
sumtable(LifeCycleSavings,labels=labs)
## -----------------------------------------------------------------------------
#Note that LifeCycleSavings has five variables
#with names 'sr', 'pop15', 'pop75', 'dpi', and 'ddpi'
labs <- data.frame(nonsensename1 = c('sr', 'pop15', 'pop75'),
nonsensename2 = c('numeric aggregate personal savings',
'numeric % of population under 15',
'numeric % of population over 75'))
st(LifeCycleSavings,labels=labs)
## -----------------------------------------------------------------------------
labs <- data.frame(sr = 'numeric aggregate personal savings',
pop15 = 'numeric % of population under 15',
pop75 = 'numeric % of population over 75')
sumtable(LifeCycleSavings,labels=labs)
## ---- eval=FALSE--------------------------------------------------------------
# #The variable names in this data set are pretty short, and the value labels are
# #a little cramped, so let's move that over.
# st(LifeCycleSavings,
# col.width=c(9,rep(13,7)))
## ---- eval = FALSE------------------------------------------------------------
# st(LifeCycleSavings,col.align = 'right')
## ---- eval = FALSE------------------------------------------------------------
# sumtable(iris,align = 'p{.3\\textwidth}ccccccc', fit.page = '\\textwidth', out = 'latex')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.