U1A4.R

setwd("~/Probabilidad y Estadistica")
library(readxl)
camarones9 <- read_excel("camarones9.xlsx")
View(camarones9)

#Variable de alimento
alimento <- camarones9$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(%)
##  [142.136,146.606) 1 0.08  8.33  1   8.33
##  [146.606,151.076) 3 0.25 25.00  4  33.33
##  [151.076,155.546) 3 0.25 25.00  7  58.33
##  [155.546,160.016) 3 0.25 25.00 10  83.33
##  [160.016,164.486) 2 0.17 16.67 12 100.00

#partir pantalla en un arreglo 3x2
par(mfrow=c(3,2))
hist(alimento,braks="Sturges")

## Warning in plot.window(xlim, ylim, "", ...): "braks" is not a graphical
## parameter

## Warning in title(main = main, sub = sub, xlab = xlab, ylab = ylab, ...): "braks"
## is not a graphical parameter

## Warning in axis(1, ...): "braks" is not a graphical parameter

## Warning in axis(2, ...): "braks" is not a graphical parameter

plot(dist, type="cfh")
plot(dist, type="cfp")
plot(dist, type="fh")
plot(dist, type="fh",col="blue")



sort(alimento)

##  [1] 143.5714 149.2857 150.0000 150.7143 151.4286 152.8571 155.0000 156.4286
##  [9] 157.8571 159.2857 161.4286 162.8571

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

## [1] 154.2262

median(alimento) #mediana

## [1] 153.9286

summary(alimento)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   143.6   150.5   153.9   154.2   158.2   162.9

#grafico de caja y bigote
boxplot(alimento)

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

## [1] 31.67517

#desviacion estandar
sd(alimento)

## [1] 5.62807

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

#grafica de dispersion
library(ggplot2)

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

#El peso del camaron es proporcional al alimento diario, entre el 
#alimento diario en le estanque 8 fue el que mejor alimentacion tuvo 
#por ello, fue el estanque en que mejor crecieron los camarones
#mientras que los camarones del estanque 2 fueron los que menos
#crecieron por ser los de menos alimentados, pero en general, los 
#estanques se mantuvieron muy regulares en peso

#ESTE DOCUMENTO SE ENCUENTRA EN:
#