library("entropy")
library("ggplot2")
library(data.table)
datos.dia.CO <- read.csv("contaminAND-gr-congresos-CO.csv", fileEncoding="latin1")
datos.dia.CO$day <- as.factor(datos.dia.CO$day)
datos.dia.CO$CO <- as.numeric(datos.dia.CO$CO)
entropies.CO <-
as.data.frame(as.table( with(datos.dia.CO,tapply(CO,day,entropy))))
entropies.shrink.CO <-
as.data.frame(as.table(with(datos.dia.CO,tapply(CO,day,entropy.shrink))))
https://github.com/JJ/contaminAND