## -----------------------------------------------------------------------------
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')