R/comparaVariablesNumericas.R

In amanosalva/ByteAnalyticsUtils: Funciones para Análisis de datos - Byte

#Función que compara 3 gráficos para una variable numérica en los datasets prepago, postpago, control
comparaVariablesNumericas <- function(nombreVariable, dataset_prepago, dataset_postpago, dataset_control){

  par(mfrow=c(3,1))

  hist(unlist(dataset_prepago[names(dataset_prepago) == nombreVariable]), main = paste(nombreVariable," - Prepago"), xlab = nombreVariable, ylab = "Frecuencia")
  hist(unlist(dataset_postpago[names(dataset_postpago) == nombreVariable]), main = paste(nombreVariable," - Postpago"), xlab = nombreVariable, ylab = "Frecuencia")
  hist(unlist(dataset_control[names(dataset_control) == nombreVariable]), main = paste(nombreVariable," - Control"), xlab = nombreVariable, ylab = "Frecuencia")


}