El siguiente documento describe y analisa los datos del experimento realizado con dos tipos de moluscos A y B los cuales fueron sometidos a tres concentraciones distintas de agua de mar (100%, 75% y 50%) y se observó el consumo de oxígeno midiendo la proporción de O2 por unidad de peso seco del molusco.

#Analisis de datos del expermiento Moluscos.

load("C:/Bioestadistica/Primer_parcial/Parcial 1/moluscos.RData")
require(faraway)
## Loading required package: faraway
head(BD_moluscos)
##   c_agua molusco cons_o
## 1    100       A   7.16
## 2    100       A   8.26
## 3    100       A   6.78
## 4    100       A  14.00
## 5    100       A  13.60
## 6    100       A  11.10
BD_moluscos
##    c_agua molusco cons_o
## 1     100       A   7.16
## 2     100       A   8.26
## 3     100       A   6.78
## 4     100       A  14.00
## 5     100       A  13.60
## 6     100       A  11.10
## 7     100       A   8.93
## 8     100       A   9.66
## 9     100       B   6.14
## 10    100       B   6.14
## 11    100       B   3.68
## 12    100       B  10.00
## 13    100       B  10.40
## 14    100       B  11.60
## 15    100       B   5.49
## 16    100       B   5.80
## 17     75       A   5.20
## 18     75       A  13.20
## 19     75       A   5.20
## 20     75       A   8.39
## 21     75       A   7.18
## 22     75       A  10.40
## 23     75       A   6.37
## 24     75       A   7.18
## 25     75       B   4.47
## 26     75       B   4.95
## 27     75       B   9.96
## 28     75       B   6.49
## 29     75       B   5.75
## 30     75       B   5.44
## 31     75       B   1.80
## 32     75       B   9.90
## 33     50       A  11.11
## 34     50       A  10.50
## 35     50       A   9.74
## 36     50       A  14.60
## 37     50       A  18.80
## 38     50       A  11.11
## 39     50       A   9.74
## 40     50       A  11.80
## 41     50       B   9.63
## 42     50       B  14.50
## 43     50       B   6.38
## 44     50       B  10.20
## 45     50       B  13.40
## 46     50       B  17.70
## 47     50       B  14.50
## 48     50       B  12.30

Como se evidencia en la tabla en el experimento contamos con 3 variables; Concentracion de agua (c_agua),especie de molusco (molusco) y concentracion de oxigeno (cons_o).Contando con 48 iteraciones.

#Analisis Univariado. #Exploracion de los datos.

require(ggplot2)
## Loading required package: ggplot2
grafica_1=ggplot(BD_moluscos,aes(x=cons_o))+geom_histogram()+labs(x="Concentracion_O2",y="Frecuencia")+ggtitle("Consumo de Oxigeno")
grafica_1
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

summary(BD_moluscos$cons_o)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.800   6.312   9.700   9.305  11.232  18.800
sd(BD_moluscos$cons_o)
## [1] 3.682652

En la grafica_1 se evidencia el consumo de oxigeno de de las dos especies de molusco en las 48 iteraciones. El mayor consumo de oxigeno es 18.8, mientras que el promedio varia entre 9.3 y debido a la similutud de la media(9.7) y la mediana (9.3) podemos decir que los datos presentann una distribucion simetrica. Con una desviacion estandar en los datos del 4%.

#Analisis del muestreo.

m=BD_moluscos[,c(1,2)]
table(m)
##       molusco
## c_agua A B
##    50  8 8
##    75  8 8
##    100 8 8

En la siguiente tabla se agrupan los datos que corresponden a concentracion de agua (50%), (75%), (100%) donde evidenciamos que estan distribuidas de manera uniforme, en donde 1/3 de muestras se distribuye en las dos especies de moluscos.

#Analisis consumo de oxigeno en relacion a la especies de Molusco.

require(ggplot2)
grafica_2=ggplot(BD_moluscos,aes(x=cons_o))+geom_histogram()+labs(x="Consumo de Oxigeno",y="Frecuencia")+geom_bar(fill="green")+ggtitle("Consumo de Oxigeno / Especie de molusco")+facet_grid(~molusco)
grafica_2
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

En la grafica_2 se puede evidenciar el consumo de oxigeno respecto a las dos especies de Moluscos A y B. Donde podemos decir que la especie A requiere mayor cantidad de oxigeno respecto a las especie B.

#Analisis Bivariado. #Analisis consumo de oxigeno segun la especie de Molusco

tapply(BD_moluscos$cons_o, BD_moluscos$molusco, mean,na.rm=TRUE)
##         A         B 
## 10.000417  8.609167

#Analisis de de cosumo de oxigeno respecto a concentracion de agua y Especie de Molusco.

tapply(BD_moluscos$cons_o, BD_moluscos$c_agua,mean,na.rm=TRUE)
##       50       75      100 
## 12.25062  6.99250  8.67125
boxplot(formula=c_agua ~cons_o,data = BD_moluscos)

grafica_3=ggplot(BD_moluscos, aes(x=c_agua, y=cons_o, fill=molusco))+geom_boxplot()+ylab("Consumo de Oxigeno")+xlab("concentracion de agua de mar")+scale_fill_discrete("Especies de Molusco")
grafica_3

#Conclusiones.

En la grafica_3 y en la tabla anterior se puede evidenciar que el cosnumo de oxigeno por las dos especies de moluscos es mayor en concentraciones de agua del 50% presentando una media de 12.25, seguido por la concentracion del 100% que presenta una media de 8.67, mientras que el menor consumo de oxigeno se presento para las concentraciones de agua del 75% que presenta una media de 6.9. Podemos decir que el molusco B presenta mayor variacion en consumo de oxigeno para las tres variables de concentracion de agua de mar.

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.