U1A4.R

#Estadistica descriptiva de datos de granja acuicola
#se tienen datos de 12 estanques de alimentacion
#y peso en semana 6
#12 gramos es el peso ideal
setwd("~/PyE_206145")
library(readxl)
Camarones6 <- read_excel("Camarones6.xlsx")
View(Camarones6)

#variable de alimento
alimento <-Camarones6$AlimentoDiario

#tabla de frecuencias
library(fdth)

## 
## Attaching package: 'fdth'

## The following objects are masked from 'package:stats':
## 
##     sd, var

dist <- fdt(alimento, breaks="Sturges")
dist

##       Class limits  f   rf rf(%) cf  cf(%)
##  [149.914,156.869) 10 0.83 83.33 10  83.33
##  [156.869,163.823)  0 0.00  0.00 10  83.33
##  [163.823,170.777)  0 0.00  0.00 10  83.33
##  [170.777,177.731)  0 0.00  0.00 10  83.33
##  [177.731,184.686)  2 0.17 16.67 12 100.00

#partir la pantalla en un arreglo 3x2
par(mfrow=c(3,2))
hist(alimento, breaks="Sturges", col="magenta")
plot(dist, type="cfh", col="red")
plot(dist, type="cfp", col="brown")
plot(dist, type="fh", col="yellow")
plot(dist, type="fh", col="green")
sort(alimento)

##  [1] 151.4286 151.4286 151.4286 151.4286 151.4286 151.4286 151.4286 151.4286
##  [9] 151.4286 151.4286 182.8571 182.8571

#Medidas de tendencia central 
mean(alimento) 

## [1] 156.6667

median(alimento) 

## [1] 151.4286

summary(alimento)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   151.4   151.4   151.4   156.7   151.4   182.9

#Grafico de caja y bigote
boxplot(alimento)

#Medidas de dispersion
#Varianza, distancia media entre la media y todos los valores
var(alimento)

## [1] 149.6599

#La varianza esta elevada al cuadrado

#La raiz cuadrada de la varianza es la 
#desviacion estandar
sd(alimento)

## [1] 12.23355

#El grado de desviacion de los datos con respecto a su media

#Grafica de dispersion
#del alimento diario en la semana 6 en gramos y el peso de los camarones 
#en gramos
library(ggplot2)

ggplot(data = Camarones6) +
  geom_point(mapping = aes(x=AlimentoDiario, y=PesoActual))

#Conclusiones
#De acuerdo a la tabla y las graficas:
#La clase mas frecuente es la de 150 a 155 grm de alimento
#Con un 83% de frecuencia tanto acumulada
#como absoluta
#Lo que quiere decir, que por ser 185 el dato maximo de alimento:
#Los camarones no crecen en proporcion al alimento que ingieren
#(no crecen mas entre mas alimento que consumen)
#Tampoco entre mas grandes consumen mas comida
#Se deben considerar mas variables para deteminar 
#el por qué el peso del camaron alcanza los 12 gr (ideal)