R/jstat.labeled_numeric.R

In ddionrails/r2ddi: Converting various data formats to DDI

#' Calculate frequencies for character objects
#'
#' @param variable variable-object
#' @param time Time variable if long data
jstat.labeled_numeric <- function(variable, time=NULL)
{
  main <- function() {
    l <- list(long  = !is.null(time),
              table = .table(variable$data_table$valid, time),
              md5   = md5(variable$data_table$valid))
    l
  }

  .table <- function(valid, time) {
    if(is.null(time))
      tab <- table(valid)
    else
      tab <- table(var = valid, time = time)
    tab <- data.frame(tab, stringsAsFactors = FALSE)
    x <- list()
    for (i in rownames(tab))
      x[[i]] <- tab[i, ]
    x
  }

  main()
}