R/desc.2cuan.filas.R

In celiaromerogustos/Cuestionarios: Análisis de cuestionarios.

#' @import tables
#' @title Tabla de resúmenes numéricos para dos variables cuantitativa  por filas
#' @description función que devuelve una tabla con las medidas descriptivas
#'  más relevante del análisis de variables numéricas, n (tamaño muestral),
#'  media, mediana, desv(desviación estandar), IC1, IC2, el intervalo de
#'  confianza con un nivel del 95% de X1 y X2 independiente uno de otro, dispuestos por filas
#' @param Datos data.frame con los datos a analizar.
#' @param X1 vector de respuestas de la primera variable cuantitativa  (tamaño n)
#' @param X2 vector de respuestas de la segunda variable cuantitativa  (tamaño n)
#' @param Nombrex1 cadena de caracteres indicando el nombre de la primera variable ( No admite espacios)
#' @param Nombrex2 cadena de caracteres indicando el nombre de la segunda variable ( No admite espacios)
#' @param Título cadena de caracteres que indica el nombre que se le quiere dar a la tabla
#' @export

desc.2cuan.filas= function (x1,x2, nombrex1, nombrex2, título) {
  IC1 <- function(x) {
    mean(x) - qt( 0.95, df = length(x) - 1) * sd(x) / sqrt(length(x))}
  IC2 <- function(x){
    mean(x) + qt( 0.95, df = length(x) - 1) * sd(x) / sqrt(length(x))}
  Media <- function(x){mean(x)}
  Mediana<- function (x) {median(x)}
  Desv<- function (x) {sd(x)}

  tabla <- "((nombrex1=x1)+(nombrex2=x2))~(n=1)+
             (Media+Mediana+Desv+IC1+IC2)"

  tt <- tabular (tabla, data = datos)
  df <- data.frame(matrix(unlist(tt), nrow=2, byrow=F))
  colnames(df) = c("n", "Media", "Mediana", "Desv", "IC1", "IC2")
  rownames(df)= c(nombrex1, nombrex2)

  kable(df, digits = 2, caption = título)
}