#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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.