U1A4.R

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

#Variable de alimento
alimento <- camarones3$AlimentoDiario
#tabla de frecuencias de alimento 
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(%)
##  [74.533,78.557) 10 0.83 83.33 10  83.33
##   [78.557,82.58)  0 0.00  0.00 10  83.33
##   [82.58,86.604)  0 0.00  0.00 10  83.33
##  [86.604,90.628)  0 0.00  0.00 10  83.33
##  [90.628,94.651)  2 0.17 16.67 12 100.00

#partir la pantalla en un arreglo de 3x2
  par(mfrow=c(3,2))
  hist(alimento,breaks="Sturges")
  plot(dist, type="cfh") #histograma de frecuencias acumuladas
  plot(dist, type="cfp") #poligono de frecuencias acumuladas
  plot(dist, type="fh")  # histograma de frecuencias absolutas
  plot(dist, type="fh",col="green") # histograma de frecuencias absolutas, verde

  #medidas de tendencia central
  mean(alimento)  #promedio, media, media aritmetica

## [1] 78.35714

  median(alimento) #mediana 

## [1] 75.28571

  summary(alimento)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   75.29   75.29   75.29   78.36   75.29   93.71

  #grafico de caja y bigote
  boxplot(alimento)
  
  #medidas de dispersion
  #varianza, distancia media entre la media y todos los valores
  var(alimento)

## [1] 51.4564

  #la varianza esta elevada al cuadrado
  
  #la raiz cuadrada de la varianza es la:
  #desviacion estandar 
  sd(alimento)

## [1] 7.173312

  #el grado de desviacion de los datos con respecto a su media
  
  #grafica de dispersion
  #del alimento diario en la semana 12 en gramos y el peso de los 
  #camarones en gramos
  library(ggplot2)

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

  # conclusion
  #al finalizar en las graficas podemos darnos cuenta
  #que todos los numeros son parecidos y que llevan una frecuencia parecida
  #en cada estanque, por lo que se puede concluir que 
  # el alimento fue constante ya que es de las primeras semanas
  #de crecimiento del camaron por lo que no genera mucho cambio de alimento 
  #en cada estanque