#' @title A function to provide descriptive statistics.
#'
#' @description Provides descriptive statistics as SPSS format.
#' @param x column in a dataframe
#' @seealso \code{\link[gmodels]{CrossTable}}
#' @return NULL
#' @import gmodels
#' @examples \dontrun{
#' # do not run this
#' x = c(1,2,3,4,5,6,7,8,9,10)
#' proc_tab(x)
#' }
proc_tab <- function(x){
require(gmodels)
CrossTable(x, format = "SPSS")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.