ejercicio-3.R

#ESTADISTICA DESCRIPTIVA DE DATOS DE GRANJA AGRICOLA
#SE TIENEN DATOS DE 12 ESTANQUES DE
#ALIMENTACION Y PESO EN LA SEMANA 12
#12 gramos es el peso ideal 
setwd("~/veranoPyE")
library(readxl)
camarones2 <- read_excel("camarones2.xlsx")
View(camarones2)

# variable de alimento 
alimento <- camarones2$AlimentoDiario

#tabla 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(%)
##   [70.149,74.01) 10 0.83 83.33 10  83.33
##   [74.01,77.872)  0 0.00  0.00 10  83.33
##  [77.872,81.734)  0 0.00  0.00 10  83.33
##  [81.734,85.595)  0 0.00  0.00 10  83.33
##  [85.595,89.457)  2 0.17 16.67 12 100.00

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

sort(alimento)

##  [1] 70.85714 70.85714 70.85714 70.85714 70.85714 70.85714 70.85714 70.85714
##  [9] 70.85714 70.85714 88.57143 88.57143

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

## [1] 73.80952

median(alimento) #mediana

## [1] 70.85714

summary(alimento)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   70.86   70.86   70.86   73.81   70.86   88.57

#grafico de caja y bigote
boxplot(alimento)

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

## [1] 47.54484

#las varianza esta elevada al cuadrado

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

## [1] 6.895276

#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 = camarones2)+
  geom_point(mapping = aes(x=AlimentoDiario, y=PesoActual))