FACULTAD DE CIENCIAS AGROPECUARIAS
ESCUELA PROFESIONAL DE MEDICINA VETERINARIA Y ZOOTECNIA
PRÁCTICA
ANÁLISIS DE VARIANZA
Docente:
MSc Emilio Maquera
Curso:
Genética y Mejoramiento Animal
Alumno:
Elihu Misael Zavala Humire
Codigo:
2021-110037
TACNA- PERÚ
2022
PRÁCTICA DE GENÉTICA Y MEJORAMIENTO ANIMAL
DETERMINACIÓN DE H2 Y SU ERROR ESTÁNDAR
Análisis de varianza
La población en referencia de pollos de White Rock fue grande y no sonsaguinice los
machos fueron elegidos al azar acada uno apareado con 3 hembras. Cada uno de los
cuales produjo 3 crías hembras.
PADRE MADRE CRIA
A 1 956 Los pesos a 8 semanas de la progenie fueron tomados
A 1 813
A 1 765 en “granos” 5 machos empadrados fueron elegidos al
A 2 803
azar y los pesos de sus progenies analizados
A 2 640
A 2 714 obteniéndose los estimados de variancia genética:
A 3 644
A 3 753 fenotípica y las herabilidades.
A 3 705
B 4 740 EXCEL
B 4 798
B 4 941
Se colocó los datos en el programa de Excel
B 5 701 para facilitar en la observación en forma
B 5 847 vertical y en 3 columnas, para que también
B 5 909 se pueda utilizar para en el programa de
B 6 909 Minitab
B 6 800
B 6 853
Luego de eso abrimos el programa de Minitab para
C 7 696
C 7 807 aplicar sus herramientas.
C 7 800
C 8 752
C 8 863
C 8 739
C 9 686
C 9 832
C 9 796
D 10 979
D 10 798
D 10 788
D 11 905
D 11 880
D 11 770
D 12 797
D 12 721
D 12 765
E 13 809
E 13 756
Luego de abierto el programa se insertará los datos
E 13 775
E 14 887 ordenadas gracias en la tabla elaborada en Excel.
E 14 935
E 14 937
Vamos en la opción de Estadística → ANOVA → ANOVA
E 15 872
E 15 811 completamente anidado
E 15 925
2|P ág i n a
PRÁCTICA DE GENÉTICA Y MEJORAMIENTO ANIMAL
MINITAB
En la herramienta de
ANOVA completamente
anidado en la parte de
“Respuesta”, se insertó
“CRIA” mientras que en
“Factores”, PADRE y
MADRE, y finalizando
haciendo clic en la parte de
Aceptar
RESULTADOS
HOJA DE TRABAJO 1
ANOVA anidada: CRIA vs. PADRE, MADRE
Análisis de varianza de CRIA
Fuente GL SC MC F P
PADRE 4 64163.9111 16040.9778 1.855 0.195 MINITAB
MADRE 10 86476.8889 8647.6889 1.585 0.159
Error 30 163674.0000 5455.8000 Se observa el cuadro de análisis
Total 44 314314.8000 de varianza
Componentes de la varianza Padres en su suma de cuadrados
% del medios como también en Madres
Fuente Comp.Var. total Desv.Est.
PADRE 821.477 11.19 28.661 También podemos observar los
MADRE 1063.963 14.49 32.618 componentes de varianza con su
Error 5455.800 74.32 73.863 respectivo margen de error.
Total 7341.240 85.681
Media de cuadrados esperada
1 PADRE 1.00 (3) + 3.00 (2) + 9.00 (1)
2 MADRE 1.00 (3) + 3.00 (2)
3 Error 1.00 (3)
3|P ág i n a
PRÁCTICA DE GENÉTICA Y MEJORAMIENTO ANIMAL
Entonces también aplicamos en el programa de Rstudio con las liberías que se
debían de descargar para poner hallar los resultados: (Matrix y Ime4)
RSTUDIO
> attach(Heredabilidad)
> names(Heredabilidad)
[1] "PADRE" "MADRE" "CRIA"
> library(lme4)
Warning message:
package ‘lme4’ was built under R version 4.1.1
> PADRE1<-as.factor(PADRE)
> MADRE1<-as.factor(MADRE)
> CRIA1<-as.numeric(CRIA)
> heredabilidad<-
lmer(CRIA1~(1|PADRE1)+(1|MADRE1),
Heredabilidad)
> summary(heredabilidad)
Linear mixed model fit by REML [lmerMod]
Formula:
CRIA1 ~ (1 | PADRE1) + (1 | MADRE1)
Data: Heredabilidad
REML criterion at convergence: 516.2
Scaled residuals:
Min 1Q Median 3Q
-1.62143 -0.61958 0.00003 0.63859
Max
2.02877
Random effects:
Groups Name Variance Std.Dev.
MADRE1 (Intercept) 1064.0 32.62
PADRE1 (Intercept) 821.5 28.66
Residual 5455.8 73.86
Number of obs: 45, groups:
MADRE1, 15; PADRE1, 5
Fixed effects:
Estimate Std. Error t value
(Intercept) 808.27 18.88 42.81
4|P ág i n a
