R/eleccion_test.R

In anmarsan/sandres: sandres

#'Función para elegir que test estadísticos aplicar
#'
#'Se utilizará para conocer la estructura de los datos a analizar.
#'
#'@param datos Los datos que debe recibir son un data frame con bloque_id, pregunta_id, atributo_id, muestra_id y valor
#'@return El resultado es una de las siguientes opciones:
#'"BIB": Estudio con diseño de bloques incompletos balanceados
#'"mas2": Estudio con más de dos muestras
#'"2": Estudio con dos muestras
#'"1": Estudio con una muestra
#'"problemas": Estudio que no cumple ninguna de las condiciones mencionadas
#'@export




eleccion_test <- function(datos) {

  library(tidyverse)

  contar <- datos %>%
    group_by(muestra_id) %>%
    summarise(n = n())

  condicion_BIB <- map(contar[["n"]],
                       ~ .x == contar[["n"]][[1]]) %>%
    data.frame()

  n_muestras <- n_distinct(datos$muestra_id)

  analisis <- case_when(
    FALSE %in% condicion_BIB ~ "BIB",
    n_muestras > 2 ~ "mas2",
    n_muestras == 2 ~ "2",
    n_muestras == 1 ~ "1",
    TRUE ~ "problemas"
  )

  return(analisis)

}