U1A4.R

#Estadistica descriptiva de datos de granja acuicola
#Se tienen datos de 12 estanques de alimentacion y peso en semana la 6
#El peso ideal son 12 gramos
setwd("~/proba")
library(readxl)
camarones2 <- read_excel("camarones2.xlsx")
View (camarones2)

#Variable de alimento
alimento <- camarones2$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(%)
##  [125.871,127.967) 10 0.83 83.33 10  83.33
##  [127.967,130.063)  0 0.00  0.00 10  83.33
##  [130.063,132.159)  0 0.00  0.00 10  83.33
##  [132.159,134.254)  0 0.00  0.00 10  83.33
##   [134.254,136.35)  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")
plot (dist, type = "cfp")
plot (dist, type = "fh")
plot (dist, type = "fh", col = "green")

sort(alimento)

##  [1] 127.1429 127.1429 127.1429 127.1429 127.1429 127.1429 127.1429 127.1429
##  [9] 127.1429 127.1429 135.0000 135.0000

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

## [1] 128.4524

median(alimento) #mediana

## [1] 127.1429

summary(alimento)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   127.1   127.1   127.1   128.5   127.1   135.0

#Grafico de caja y bigote
#Aqui podemos observar el grafico de caja y bigote semana 6
boxplot(alimento)

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

## [1] 9.353742

#La varianza esta elevada al cuadrado

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

## [1] 3.058389

#Es el grado de desviacion de los datos con respecto a su media

#Grafica de dispersion del alimento 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))