Nothing Special   »   [go: up one dir, main page]
Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 39 vistas

    Prueba Final Estadística Aplicada Periodo Nov 2018 3 45

    Cargado por

    Leonardo Fabricio Vinueza Castro
    Este documento presenta los resultados de un análisis estadístico realizado sobre datos de salmón. Se estimaron estadísticas descriptivas y se graficaron variables como la grasa, pigmento y humedad según el sexo. Luego, se analizó la normalidad y homogeneidad de varianzas del pigmento, y se realizó un ANOVA para comparar el efecto del lote en este valor. Finalmente, se planteó un modelo de regresión para predecir el pigmento a partir del peso.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd

    Prueba Final Estadística Aplicada Periodo Nov 2018 3 45

    Cargado por

    Leonardo Fabricio Vinueza Castro
    39 vistas7 páginas
    Este documento presenta los resultados de un análisis estadístico realizado sobre datos de salmón. Se estimaron estadísticas descriptivas y se graficaron variables como la grasa, pigmento y humedad según el sexo. Luego, se analizó la normalidad y homogeneidad de varianzas del pigmento, y se realizó un ANOVA para comparar el efecto del lote en este valor. Finalmente, se planteó un modelo de regresión para predecir el pigmento a partir del peso.

    Descripción original:

    Título original

    Prueba Final Estadística Aplicada Periodo Nov 2018 3 45.docx

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    DOCX, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Este documento presenta los resultados de un análisis estadístico realizado sobre datos de salmón. Se estimaron estadísticas descriptivas y se graficaron variables como la grasa, pigmento y humedad según el sexo. Luego, se analizó la normalidad y homogeneidad de varianzas del pigmento, y se realizó un ANOVA para comparar el efecto del lote en este valor. Finalmente, se planteó un modelo de regresión para predecir el pigmento a partir del peso.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    39 vistas7 páginas

    Prueba Final Estadística Aplicada Periodo Nov 2018 3 45

    Cargado por

    Leonardo Fabricio Vinueza Castro
    Este documento presenta los resultados de un análisis estadístico realizado sobre datos de salmón. Se estimaron estadísticas descriptivas y se graficaron variables como la grasa, pigmento y humedad según el sexo. Luego, se analizó la normalidad y homogeneidad de varianzas del pigmento, y se realizó un ANOVA para comparar el efecto del lote en este valor. Finalmente, se planteó un modelo de regresión para predecir el pigmento a partir del peso.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    de 7

    Prueba Final Estadística Aplicada Periodo Nov 2018- Ener 2019

    Nombre: Francisco Vinueza


    Fecha: 17-01-2019

    1. Lea y cargue en Estudio el archivo “Dcanaltare6.csv”


    > View(Dcanaltarea6_ok_sii)
    > attach(Dcanaltarea6_ok_sii)
    > str(Dcanaltarea6_ok_sii)
    Classes ‘tbl_df’, ‘tbl’ and 'data.frame': 336 obs. of 18 variables:
    $ ID : chr "428" "696" "103" "169" ...
    $ Grasa : num 18.1 13.3 17.8 20 16.2 18.7 17.1 21.7 18.2 24.5 ...
    $ Pigmento: num 3.9 3.9 4.5 8.5 4 6.5 6.6 4.5 6.6 7 ...
    $ Humedad : num 71.4 72.7 71 68 72.5 70.1 70.7 71.5 69.6 69.3 ...
    $ Batch : chr "5" "4" "4" "2" ...
    $ E18 : num 5 3.5 5.75 6 5.25 6 5 5.5 3.5 5 ...
    $ E1118 : num 15.8 14.5 16.8 17 16.2 ...
    $ E2034 : num 29 26 30 31.5 29 31 29.5 30 26 29 ...
    $ L : num 54.2 37.1 39.5 36.6 41.9 ...
    $ a : num 24.4 16.1 20.8 16.6 21 ...
    $ b : num 22.8 15.7 17.4 14 18.5 ...
    $ C : num 33.4 22.5 27.1 21.7 28 ...
    $ h : num 43.1 44.3 39.9 40.2 41.4 ...
    $ Sexo : chr "H" "H" "M" "H" ...
    $ Largo : num 50.8 51 49.5 51.8 55 52 54 53.2 54.5 52.9 ...
    $ Alto : num 12.9 13.5 13.2 13 12.6 13.5 14.4 14.5 14.4 15.8 ...
    $ Ancho : num 5.8 6.3 6 6.5 6.6 5.5 5.8 6.6 6.3 6.2 ...
    $ Peso : num 2000 2000 2100 2200 2300 2450 2450 2450 2500 2500 ...

    2. Estime las estadísticas básicas (promedio, desviación estándar, mediana,


    recorrido intercuartilico) para las variables: Grasa, Pigmento, Humedad y
    Peso empleando como factor Sexo. Represente gráficamente mediante un
    boxplot cada variable por el factor.

    Grasa - Sexo
    > tapply(Grasa,Sexo,mean)
    H M
    18.37823 20.75979

    > tapply(Grasa,Sexo,sd)
    H M
    2.833061 2.881779
    > tapply(Grasa,Sexo,median)
    H M
    18.2 20.7
    > tapply(Grasa,Sexo,IQR)
    H M
    2.9 3.5

    > boxplot(Grasa~Sexo , main="Grasa-Sexo", ylab="Sexo",


    xlab="Grupos",col=8)
    Pigmento- Sexo

    > tapply(Pigmento,Sexo,mean)
    H M
    6.466667 5.946561
    > tapply(Pigmento,Sexo,median)
    H M
    6.5 6.0
    > tapply(Pigmento,Sexo,sd)
    H M
    1.272218 1.104802
    > tapply(Pigmento,Sexo,IQR)
    H M
    1.7 1.5

    > boxplot(Pigmento~Sexo , main="Pigmento-Sexo", ylab="Sexo",


    xlab="Grupos",col=8)
    Humedad-Sexo

    > tapply(Humedad,Sexo,mean)
    H M
    69.97755 70.20688
    > tapply(Humedad,Sexo,median)
    H M
    70.1 70.3
    > tapply(Humedad,Sexo,sd)
    H M
    1.094306 1.020432
    > tapply(Humedad,Sexo,IQR)
    H M
    1.15 1.30

    > boxplot(Humedad~Sexo , main="Humedad-Sexo", ylab="Sexo", xlab="Grupos",


    col=8)
    Peso- Sexo

    > tapply(Peso,Sexo,mean)
    H M
    3783.333 4099.751
    > tapply(Peso,Sexo,median)
    H M
    3850 4100
    > tapply(Peso,Sexo,sd)
    H M
    557.3093 658.2221
    > tapply(Peso,Sexo,IQR)
    H M
    625 900

    > boxplot(Peso~Sexo , main="Peso-Sexo", ylab="Sexo", xlab="Grupos",


    col=8)
    3. Pruebe los supuestos básicos del ANDEVA para la variable Pigmento como
    factor Sexo.

    > qqnorm(Pigmento)
    > qqline(Pigmento)
    R= Como se puede observar en este analisis grafico hay normalidad.

    Homogenidad
    > bartlett.test(Pigmento,Sexo)

    Bartlett test of homogeneity of variances

    data: Pigmento and Sexo


    Bartlett's K-squared = 3.2901, df = 1, p-value = 0.0697

    R= No hay evidencia para rechazar H0 por tanto existe homegenidad


    de varianza para la variable pigmento por sexo

    4. De acuerdo a sus resultados en el punto 3, realice un análisis de varianza


    paramétrico o no paramétrico para comparar el efecto del Batch en la
    inclusion de Pigmento en el musculo del salmón, según corresponda.
    Justifique por que realizará tal análisis

    > summary(aov(Pigmento~Batch))
    Df Sum Sq Mean Sq F value Pr(>F)
    Batch 4 19.0 4.755 3.355 0.0104 *
    Residuals 331 469.1 1.417
    ---
    Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

    R= Se rechaza la hipótesis nula y se acepta la hipótesis alternativa por


    tanto

    5. De acuerdo a sus resultados en el punto 4, realice un análisis de


    comparaciones múltiples a posteriori, paramétrico o no paramétrico, según
    corresponda. Interprete los resultados.

    6. Plantee un modelo para predecir el valor de la variable Pigmento a partir del


    Peso.
    a)Escriba el modelo significativo obtenido.
    b)Justifique la validez del modelo
    c)Estime e interprete el valor del coeficiente de determinación.
    d) ¿Sirve su modelo de regresión para predecir la variable dependiente?
    explique.
    7. Concluya en términos Biológicos las inferencias obtenidas a partir de los
    resultados de los puntos 4, 5, 6

    También podría gustarte