E.Inferencial-Variable-Combustible.R

datos <- read.csv2("IC.csv")
combus <- datos$combus_i
##Tabla de distribucion de probabilidad
TDP <- table(combus)
tablacombus <- as.data.frame(TDP)
p <- tablacombus$Freq/sum(tablacombus$Freq)
P <- p*100
sum(P)

## [1] 100

tablacombus <- data.frame(tablacombus,P)

barplot(tablacombus$P,main = "Gráfica #1: Distribución de probabilidad del numero de empresa encargada",
        xlab = "", ylab = "Probabilidad",names.arg = tablacombus$combus, col = "red",
        las=2, ylim = c(0,100), cex.names = 0.45, cex.axis = 0.5)
mtext("Tipo de vegetacion", side = 1, line = 4, cex = 0.7)