# Carga de datos
proyector <- read.table("proyecto_r.dat", header=T)
#summary(proyector)

# Estadística libro
cat("\nEstadísticas ebrcmdr\n")
cat("Descargas totales: ", sum(proyector$ebrcmdr), "\n")
summary(proyector$ebrcmdr)
# Descarga por mes
png(file="descargas_mes.png")
barplot(proyector$ebrcmdr, xlab="Mes", ylab="Descargas", main=paste("Descargas por mes (", proyector$date[nrow(proyector)], ")\nLibro Estadística Básica con R y Rcmdr\n(Descargas: ", round(mean(proyector$ebrcmdr)),"/mes ", round(mean(proyector$ebrcmdr)/30), "/día)", sep=""), sub="(Servidor knuth.uca.es)", names.arg=proyector$date, col=terrain.colors(length(proyector$ebrcmdr)))
#dev.off()
# Descargas totales
png(file="descargas_totales.png")
barplot(cumsum(proyector$ebrcmdr), xlab="Mes", ylab="Descargas Totales", main=paste("Descargas totales (", proyector$date[nrow(proyector)], ")\nLibro Estadística Básica con R y Rcmdr\n(Total", sum(proyector$ebrcmdr), ")"), sub="(Servidor knuth.uca.es)", names.arg=proyector$date, col=heat.colors(length(proyector$ebrcmdr)))
#dev.off()


# Estadística R-UCA
# Eliminamos las dos primeras filas
cat("\nEstadísticas R-UCA\n")
proyector <- proyector[c(-1,-2),]
cat("Descargas totales: ", sum(proyector$R.UCA, na.rm=T), "\n")
summary(proyector$R.UCA)
# Descarga por mes
png(file="R-UCA_descargas_mes.png")
barplot(proyector$R.UCA, xlab="Mes", ylab="Descargas", main=paste("Descargas por mes (", proyector$date[nrow(proyector)], ")\nPaquete R-UCA\n(Descargas ", round(mean(proyector$R.UCA)), "/mes ", round(mean(proyector$R.UCA)/30), "/día)", sep=""), sub="(Servidores del proyecto)", names.arg=proyector$date, col=terrain.colors(length(proyector$ebrcmdr)))
#dev.off()
# Descargas totales
png(file="R-UCA_descargas_totales.png")
barplot(cumsum(proyector$R.UCA), xlab="Mes", ylab="Descargas Totales", main=paste("Descargas totales (", proyector$date[nrow(proyector)], ")\nPaquete R-UCA\n(Total", sum(proyector$R.UCA),")"), sub="(Servidores del proyecto)", names.arg=proyector$date, col=heat.colors(length(proyector$ebrcmdr)))
#dev.off()