Audpc De Pragas
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Audpc De Pragas as PDF for free.
More details
- Words: 1,859
- Pages: 11
DADOS DE AUDPC DE PRAGAS NA CULTURA DE FEIJAO NHEMBA Dados com distribuição normal/PARAMETRICOS 1. BESOURO DA FOLHA model.besouro<-lm(AUDPC_BESOURO~Trat, data=bio) > model.besouro Call: lm(formula = AUDPC_BESOURO ~ Trat, data = bio) Coefficients: (Intercept) TratCipermetrina TratNliminhoto TratNthema 29.500 1.500 8.000 -8.750 TratSem tratamento 9.750
TratMbaua
TratNavatha
5.625
-10.250
> with (bio, by (AUDPC_BESOURO, Trat, summary)) Trat: Beijo da mulata Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 26.00 27.75 29.50 31.25 36.50 -----------------------------------------------------------------------------Trat: Cipermetrina Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 26.00 30.75 31.00 35.75 36.50 -----------------------------------------------------------------------------Trat: Mbaua Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 28.62 36.00 35.12 42.50 42.50 -----------------------------------------------------------------------------Trat: Navatha Min. 1st Qu. Median Mean 3rd Qu. Max. 8.00 14.75 21.50 19.25 26.00 26.00 -----------------------------------------------------------------------------Trat: Nliminhoto Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 28.62 37.75 37.50 46.62 48.50 -----------------------------------------------------------------------------Trat: Nthema Min. 1st Qu. Median Mean 3rd Qu. Max. 16.00 19.38 20.50 20.75 21.88 26.00 -----------------------------------------------------------------------------Trat: Sem tratamento Min. 1st Qu. Median Mean 3rd Qu. Max. 29.50 34.75 39.50 39.25 44.00 48.50 > shapiro.test(resid(model.besouro)) Shapiro-Wilk normality test data: resid(model.besouro) W = 0.93884, p-value = 0.1033 > qqPlot(resid(model.besouro)) [1] 22 26
FIGURA:
> leveneTest (AUDPC_BESOURO ~ Trat, data=bio) Levene's Test for Homogeneity of Variance (center = median) Df F value Pr(>F) group 6 2.7192 0.04096 * 21 --Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 > anova <- aov (AUDPC_BESOURO ~ Trat, data=bio) > summary(anova) Df Sum Sq Mean Sq F value Pr(>F) Trat 6 1479 246.43 4.111 0.00697 ** Residuals 21 1259 59.95 --Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 > comp <- HSD.test(anova, "Trat", group = TRUE) > comp $statistics MSerror Df Mean CV MSD 59.9494 21 30.33929 25.52038 17.79776 $parameters test name.t ntr StudentizedRange alpha Tukey Trat 7 4.597302 0.05 $means Beijo da mulata Cipermetrina Mbaua Navatha Nliminhoto Nthema Sem tratamento
AUDPC_BESOURO std r Min 29.500 4.949747 4 26.0 31.000 5.787918 4 26.0 35.125 8.634958 4 26.0 19.250 8.616844 4 8.0 37.500 11.394443 4 26.0 20.750 4.092676 4 16.0 39.250 8.139410 4 29.5
Max 36.5 36.5 42.5 26.0 48.5 26.0 48.5
Q25 26.000 26.000 28.625 14.750 28.625 19.375 34.750
Q50 27.75 30.75 36.00 21.50 37.75 20.50 39.50
Q75 31.250 35.750 42.500 26.000 46.625 21.875 44.000
$comparison NULL $groups Sem tratamento Nliminhoto Mbaua Cipermetrina Beijo da mulata Nthema Navatha attr(,"class") [1] "group" GRAFICO:
AUDPC_BESOURO groups 39.250 a 37.500 ab 35.125 abc 31.000 abc 29.500 abc 20.750 bc 19.250 c
DADOS NAO PARAMETRICOS 1. AFIDIO model.APHL <-lm(AUDPC_Afidio_Aphis ~ Trat, data=bio6) > model.APHL Call: lm(formula = AUDPC_Afidio_Aphis ~ Trat, data = bio6) Coefficients: (Intercept) TratT4 (Nthema) 3.500 -1.750 TratT5 (Beijo da mulata) -1.750
TratT2 (Navatha)
TratT3 (Mbaua)
5.000
-1.750
TratT6 (Cipermetrina) 9.375
TratT7 (Sem tratamento) 4.125
> with (bio6, by (AUDPC_Afidio_Aphis, Trat, summary)) Trat: T1 (Nliminhoto) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.0 0.0 0.0 3.5 3.5 14.0 ----------------------------------------------------------------------------------------Trat: T2 (Navatha) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.0 0.0 0.0 8.5 8.5 34.0 ----------------------------------------------------------------------------------------Trat: T3 (Mbaua) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 0.00 0.00 1.75 1.75 7.00 ----------------------------------------------------------------------------------------Trat: T4 (Nthema) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 0.00 0.00 1.75 1.75 7.00 ----------------------------------------------------------------------------------------Trat: T5 (Beijo da mulata) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 0.00 0.00 1.75 1.75 7.00 ----------------------------------------------------------------------------------------Trat: T6 (Cipermetrina) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 5.25 10.50 12.88 18.12 30.50 ----------------------------------------------------------------------------------------Trat: T7 (Sem tratamento) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.000 2.625 4.750 7.625 9.750 21.000 > shapiro.test(resid(model.APHL)) Shapiro-Wilk normality test data: resid(model.APHL) W = 0.85728, p-value = 0.001316
> qqPlot(resid(model.APHL)) [1] 9 6 > leveneTest (AUDPC_Afidio_Aphis ~ Trat, data=bio6) Levene's Test for Homogeneity of Variance (center = median) Df F value Pr(>F) group 6 0.6256 0.708 21 > kruskal.test(AUDPC_Afidio_Aphis ~ Trat, data=bio6) Kruskal-Wallis rank sum test data: AUDPC_Afidio_Aphis by Trat Kruskal-Wallis chi-squared = 5.2243, df = 6, p-value = 0.5154 > dunnTest(AUDPC_Afidio_Aphis ~ Trat, data=bio6, method = "bonferroni") Dunn (1964) Kruskal-Wallis multiple comparison p-values adjusted with the Bonferroni method. Comparison 1 T1 (Nliminhoto) - T2 (Navatha) 2 T1 (Nliminhoto) - T3 (Mbaua) 3 T2 (Navatha) - T3 (Mbaua) 4 T1 (Nliminhoto) - T4 (Nthema) 5 T2 (Navatha) - T4 (Nthema) 6 T3 (Mbaua) - T4 (Nthema) 7 T1 (Nliminhoto) - T5 (Beijo da mulata) 8 T2 (Navatha) - T5 (Beijo da mulata) 9 T3 (Mbaua) - T5 (Beijo da mulata) 10 T4 (Nthema) - T5 (Beijo da mulata) 11 T1 (Nliminhoto) - T6 (Cipermetrina) 12 T2 (Navatha) - T6 (Cipermetrina) 13 T3 (Mbaua) - T6 (Cipermetrina) 14 T4 (Nthema) - T6 (Cipermetrina) 15 T5 (Beijo da mulata) - T6 (Cipermetrina) 16 T1 (Nliminhoto) - T7 (Sem tratamento) 17 T2 (Navatha) - T7 (Sem tratamento) 18 T3 (Mbaua) - T7 (Sem tratamento) 19 T4 (Nthema) - T7 (Sem tratamento) 20 T5 (Beijo da mulata) - T7 (Sem tratamento) 21 T6 (Cipermetrina) - T7 (Sem tratamento)
Z -0.1710240 0.1465920 0.3176160 0.1465920 0.3176160 0.0000000 0.1465920 0.3176160 0.0000000 0.0000000 -1.4903519 -1.3193279 -1.6369439 -1.6369439 -1.6369439 -1.0017119 -0.8306879 -1.1483039 -1.1483039 -1.1483039 0.4886400
P.unadj P.adj 0.8642049 1 0.8834541 1 0.7507763 1 0.8834541 1 0.7507763 1 1.0000000 1 0.8834541 1 0.7507763 1 1.0000000 1 1.0000000 1 0.1361317 1 0.1870595 1 0.1016422 1 0.1016422 1 0.1016422 1 0.3164827 1 0.4061499 1 0.2508431 1 0.2508431 1 0.2508431 1 0.6250966 1
GRAFICO:AUDPC DE ATAQUE E INFESTACAO DE AFIDIO NO FEIJAO NHEMBA
3. PRESENCA DE IMINGOS NATURAL > model.iminigos<-lm(AUDPC_Iminigos_natural~Trat, data=bio) > model.iminigos Call: lm(formula = AUDPC_Iminigos_natural ~ Trat, data = bio) Coefficients: (Intercept) TratT4 (Nthema) 19.75 16.00 TratT5 (Beijo da mulata) 0.75
TratT2 ( Navatha )
TratT3
(Mbaua)
1.25
-0.50
TratT6 (Cipermetrina) -6.75
TratT7 (Sem tratamento) -15.75
> with (bio, by (AUDPC_Iminigos_natural, Trat, summary)) Trat: T1 (Nliminhoto) Min. 1st Qu. Median Mean 3rd Qu. Max. 10.00 15.25 19.50 19.75 24.00 30.00 -----------------------------------------------------------------------------Trat: T2 ( Navatha ) Min. 1st Qu. Median Mean 3rd Qu. Max. 10.0 11.5 15.5 21.0 25.0 43.0 -----------------------------------------------------------------------------Trat: T3 (Mbaua) Min. 1st Qu. Median Mean 3rd Qu. Max. 9.00 15.75 19.00 19.25 22.50 30.00 -----------------------------------------------------------------------------Trat: T4 (Nthema) Min. 1st Qu. Median Mean 3rd Qu. Max. 32.00 32.75 35.00 35.75 38.00 41.00 -----------------------------------------------------------------------------Trat: T5 (Beijo da mulata) Min. 1st Qu. Median Mean 3rd Qu. Max.
6.00 6.75 15.50 20.50 29.25 45.00 -----------------------------------------------------------------------------Trat: T6 (Cipermetrina) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.0 7.5 14.5 13.0 20.0 23.0 -----------------------------------------------------------------------------Trat: T7 (Sem tratamento) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 2.25 4.50 4.00 6.25 7.00 > shapiro.test(resid(model.iminigos)) Shapiro-Wilk normality test data: resid(model.iminigos) W = 0.94204, p-value = 0.1246 > qqPlot(resid(model.iminigos)) [1] 5 2
> leveneTest (AUDPC_Iminigos_natural ~ Trat, data=bio) Levene's Test for Homogeneity of Variance (center = median) Df F value Pr(>F) group 6 1.3859 0.2661 21 > kruskal.test(AUDPC_Iminigos_natural ~ Trat, data=bio) Kruskal-Wallis rank sum test data: AUDPC_Iminigos_natural by Trat Kruskal-Wallis chi-squared = 13.407, df = 6, p-value = 0.037 > dunnTest(AUDPC_Iminigos_natural ~ Trat, data=bio, method = "bonferroni") Dunn (1964) Kruskal-Wallis multiple comparison p-values adjusted with the Bonferroni method.
Comparison P.adj 1 T1 (Nliminhoto) - T2 ( Navatha ) 1.000000000 2 T1 (Nliminhoto) - T3 (Mbaua) 1.000000000 3 T2 ( Navatha ) - T3 (Mbaua) 1.000000000 4 T1 (Nliminhoto) - T4 (Nthema) 1.000000000 5 T2 ( Navatha ) - T4 (Nthema) 1.000000000 6 T3 (Mbaua) - T4 (Nthema) 1.000000000 7 T1 (Nliminhoto) - T5 (Beijo da mulata) 1.000000000 8 T2 ( Navatha ) - T5 (Beijo da mulata) 1.000000000 9 T3 (Mbaua) - T5 (Beijo da mulata) 1.000000000 10 T4 (Nthema) - T5 (Beijo da mulata) 1.000000000 11 T1 (Nliminhoto) - T6 (Cipermetrina) 1.000000000 12 T2 ( Navatha ) - T6 (Cipermetrina) 1.000000000 13 T3 (Mbaua) - T6 (Cipermetrina) 1.000000000 14 T4 (Nthema) - T6 (Cipermetrina) 0.530020638 15 T5 (Beijo da mulata) - T6 (Cipermetrina) 1.000000000 16 T1 (Nliminhoto) - T7 (Sem tratamento) 0.905493566 17 T2 ( Navatha ) - T7 (Sem tratamento) 0.734517558 18 T3 (Mbaua) - T7 (Sem tratamento) 1.000000000 19 T4 (Nthema) - T7 (Sem tratamento) 0.008082644 20 T5 (Beijo da mulata) - T7 (Sem tratamento) 1.000000000 21 T6 (Cipermetrina) - T7 (Sem tratamento) 1.000000000
Z
P.unadj
-0.08606630 0.9314137156 0.08606630 0.9314137156 0.17213259 0.8633332895 -1.52767676 0.1265928119 -1.44161047 0.1494122938 -1.61374306 0.1065831696 0.15061602 0.8802786242 0.23668232 0.8129032553 0.06454972 0.9485325169 1.67829278 0.0932899562 0.71004695 0.4776750240 0.79611324 0.4259662173 0.62398065 0.5326402928 2.23772371 0.0252390780 0.55943093 0.5758676589 2.02255797 0.0431187412 2.10862427 0.0349770266 1.93649167 0.0528075114 3.55023473 0.0003848878 1.87194195 0.0612146350 1.31251102 0.1893477693
GRAFICO:AUDPC DE PRESENCA DE IMINIGOS NATURAL
4.PERCEVEJOS > model.Percevejo<-lm(AUDPC_Percevejos_sp~Trat, data=bio) > model.Percevejo Call: lm(formula = AUDPC_Percevejos_sp ~ Trat, data = bio) Coefficients: (Intercept) TratT4 (Nthema) 29.25 -3.25 TratT5 (Beijo da mulata) -3.25
TratT2 ( Navatha )
TratT3
(Mbaua)
-3.25
-3.25
TratT6 (Cipermetrina) -8.00
TratT7 (Sem tratamento) -9.75
> with (bio, by (AUDPC_Percevejos_sp, Trat, summary)) Trat: T1 (Nliminhoto) Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 26.00 26.00 29.25 29.25 39.00 -----------------------------------------------------------------------------Trat: T2 ( Navatha ) Min. 1st Qu. Median Mean 3rd Qu. Max. 26 26 26 26 26 26 -----------------------------------------------------------------------------Trat: T3 (Mbaua) Min. 1st Qu. Median Mean 3rd Qu. Max. 26 26 26 26 26 26 -----------------------------------------------------------------------------Trat: T4 (Nthema) Min. 1st Qu. Median Mean 3rd Qu. Max. 26 26 26 26 26 26 -----------------------------------------------------------------------------Trat: T5 (Beijo da mulata)
Min. 1st Qu. Median Mean 3rd Qu. Max. 26 26 26 26 26 26 -----------------------------------------------------------------------------Trat: T6 (Cipermetrina) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 19.50 26.00 21.25 27.75 33.00 -----------------------------------------------------------------------------Trat: T7 (Sem tratamento) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.0 19.5 26.0 19.5 26.0 26.0 > shapiro.test(resid(model.Percevejo)) Shapiro-Wilk normality test data: resid(model.Percevejo) W = 0.74674, p-value = 1.403e-05 > qqPlot(resid(model.Percevejo)) [1] 28 27 FIGURA:
> leveneTest (AUDPC_Percevejos_sp ~ Trat, data=bio) Levene's Test for Homogeneity of Variance (center = median) Df F value Pr(>F) group 6 0.9611 0.4746 21 > kruskal.test(AUDPC_Percevejos_sp ~ Trat, data=bio) Kruskal-Wallis rank sum test data: AUDPC_Percevejos_sp by Trat Kruskal-Wallis chi-squared = 3.5072, df = 6, p-value = 0.743 > dunnTest(AUDPC_Percevejos_sp ~ Trat, data=bio, method = "bonferroni") Dunn (1964) Kruskal-Wallis multiple comparison p-values adjusted with the Bonferroni method. 1 2
Comparison Z P.unadj P.adj T1 (Nliminhoto) - T2 ( Navatha ) 0.95353526 0.34031894 1 T1 (Nliminhoto) - T3 (Mbaua) 0.95353526 0.34031894 1
3 T2 ( Navatha ) - T3 (Mbaua) 4 T1 (Nliminhoto) - T4 (Nthema) 5 T2 ( Navatha ) - T4 (Nthema) 6 T3 (Mbaua) - T4 (Nthema) 7 T1 (Nliminhoto) - T5 (Beijo da mulata) 8 T2 ( Navatha ) - T5 (Beijo da mulata) 9 T3 (Mbaua) - T5 (Beijo da mulata) 10 T4 (Nthema) - T5 (Beijo da mulata) 11 T1 (Nliminhoto) - T6 (Cipermetrina) 12 T2 ( Navatha ) - T6 (Cipermetrina) 13 T3 (Mbaua) - T6 (Cipermetrina) 14 T4 (Nthema) - T6 (Cipermetrina) 15 T5 (Beijo da mulata) - T6 (Cipermetrina) 16 T1 (Nliminhoto) - T7 (Sem tratamento) 17 T2 ( Navatha ) - T7 (Sem tratamento) 18 T3 (Mbaua) - T7 (Sem tratamento) 19 T4 (Nthema) - T7 (Sem tratamento) 20 T5 (Beijo da mulata) - T7 (Sem tratamento) 21 T6 (Cipermetrina) - T7 (Sem tratamento)
GRAFICO:
0.00000000 0.95353526 0.00000000 0.00000000 0.95353526 0.00000000 0.00000000 0.00000000 0.98885138 0.03531612 0.03531612 0.03531612 0.03531612 1.87175440 0.91821914 0.91821914 0.91821914 0.91821914 0.88290302
1.00000000 0.34031894 1.00000000 1.00000000 0.34031894 1.00000000 1.00000000 1.00000000 0.32273586 0.97182767 0.97182767 0.97182767 0.97182767 0.06124059 0.35850415 0.35850415 0.35850415 0.35850415 0.37728867
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
TratMbaua
TratNavatha
5.625
-10.250
> with (bio, by (AUDPC_BESOURO, Trat, summary)) Trat: Beijo da mulata Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 26.00 27.75 29.50 31.25 36.50 -----------------------------------------------------------------------------Trat: Cipermetrina Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 26.00 30.75 31.00 35.75 36.50 -----------------------------------------------------------------------------Trat: Mbaua Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 28.62 36.00 35.12 42.50 42.50 -----------------------------------------------------------------------------Trat: Navatha Min. 1st Qu. Median Mean 3rd Qu. Max. 8.00 14.75 21.50 19.25 26.00 26.00 -----------------------------------------------------------------------------Trat: Nliminhoto Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 28.62 37.75 37.50 46.62 48.50 -----------------------------------------------------------------------------Trat: Nthema Min. 1st Qu. Median Mean 3rd Qu. Max. 16.00 19.38 20.50 20.75 21.88 26.00 -----------------------------------------------------------------------------Trat: Sem tratamento Min. 1st Qu. Median Mean 3rd Qu. Max. 29.50 34.75 39.50 39.25 44.00 48.50 > shapiro.test(resid(model.besouro)) Shapiro-Wilk normality test data: resid(model.besouro) W = 0.93884, p-value = 0.1033 > qqPlot(resid(model.besouro)) [1] 22 26
FIGURA:
> leveneTest (AUDPC_BESOURO ~ Trat, data=bio) Levene's Test for Homogeneity of Variance (center = median) Df F value Pr(>F) group 6 2.7192 0.04096 * 21 --Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 > anova <- aov (AUDPC_BESOURO ~ Trat, data=bio) > summary(anova) Df Sum Sq Mean Sq F value Pr(>F) Trat 6 1479 246.43 4.111 0.00697 ** Residuals 21 1259 59.95 --Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 > comp <- HSD.test(anova, "Trat", group = TRUE) > comp $statistics MSerror Df Mean CV MSD 59.9494 21 30.33929 25.52038 17.79776 $parameters test name.t ntr StudentizedRange alpha Tukey Trat 7 4.597302 0.05 $means Beijo da mulata Cipermetrina Mbaua Navatha Nliminhoto Nthema Sem tratamento
AUDPC_BESOURO std r Min 29.500 4.949747 4 26.0 31.000 5.787918 4 26.0 35.125 8.634958 4 26.0 19.250 8.616844 4 8.0 37.500 11.394443 4 26.0 20.750 4.092676 4 16.0 39.250 8.139410 4 29.5
Max 36.5 36.5 42.5 26.0 48.5 26.0 48.5
Q25 26.000 26.000 28.625 14.750 28.625 19.375 34.750
Q50 27.75 30.75 36.00 21.50 37.75 20.50 39.50
Q75 31.250 35.750 42.500 26.000 46.625 21.875 44.000
$comparison NULL $groups Sem tratamento Nliminhoto Mbaua Cipermetrina Beijo da mulata Nthema Navatha attr(,"class") [1] "group" GRAFICO:
AUDPC_BESOURO groups 39.250 a 37.500 ab 35.125 abc 31.000 abc 29.500 abc 20.750 bc 19.250 c
DADOS NAO PARAMETRICOS 1. AFIDIO model.APHL <-lm(AUDPC_Afidio_Aphis ~ Trat, data=bio6) > model.APHL Call: lm(formula = AUDPC_Afidio_Aphis ~ Trat, data = bio6) Coefficients: (Intercept) TratT4 (Nthema) 3.500 -1.750 TratT5 (Beijo da mulata) -1.750
TratT2 (Navatha)
TratT3 (Mbaua)
5.000
-1.750
TratT6 (Cipermetrina) 9.375
TratT7 (Sem tratamento) 4.125
> with (bio6, by (AUDPC_Afidio_Aphis, Trat, summary)) Trat: T1 (Nliminhoto) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.0 0.0 0.0 3.5 3.5 14.0 ----------------------------------------------------------------------------------------Trat: T2 (Navatha) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.0 0.0 0.0 8.5 8.5 34.0 ----------------------------------------------------------------------------------------Trat: T3 (Mbaua) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 0.00 0.00 1.75 1.75 7.00 ----------------------------------------------------------------------------------------Trat: T4 (Nthema) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 0.00 0.00 1.75 1.75 7.00 ----------------------------------------------------------------------------------------Trat: T5 (Beijo da mulata) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 0.00 0.00 1.75 1.75 7.00 ----------------------------------------------------------------------------------------Trat: T6 (Cipermetrina) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 5.25 10.50 12.88 18.12 30.50 ----------------------------------------------------------------------------------------Trat: T7 (Sem tratamento) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.000 2.625 4.750 7.625 9.750 21.000 > shapiro.test(resid(model.APHL)) Shapiro-Wilk normality test data: resid(model.APHL) W = 0.85728, p-value = 0.001316
> qqPlot(resid(model.APHL)) [1] 9 6 > leveneTest (AUDPC_Afidio_Aphis ~ Trat, data=bio6) Levene's Test for Homogeneity of Variance (center = median) Df F value Pr(>F) group 6 0.6256 0.708 21 > kruskal.test(AUDPC_Afidio_Aphis ~ Trat, data=bio6) Kruskal-Wallis rank sum test data: AUDPC_Afidio_Aphis by Trat Kruskal-Wallis chi-squared = 5.2243, df = 6, p-value = 0.5154 > dunnTest(AUDPC_Afidio_Aphis ~ Trat, data=bio6, method = "bonferroni") Dunn (1964) Kruskal-Wallis multiple comparison p-values adjusted with the Bonferroni method. Comparison 1 T1 (Nliminhoto) - T2 (Navatha) 2 T1 (Nliminhoto) - T3 (Mbaua) 3 T2 (Navatha) - T3 (Mbaua) 4 T1 (Nliminhoto) - T4 (Nthema) 5 T2 (Navatha) - T4 (Nthema) 6 T3 (Mbaua) - T4 (Nthema) 7 T1 (Nliminhoto) - T5 (Beijo da mulata) 8 T2 (Navatha) - T5 (Beijo da mulata) 9 T3 (Mbaua) - T5 (Beijo da mulata) 10 T4 (Nthema) - T5 (Beijo da mulata) 11 T1 (Nliminhoto) - T6 (Cipermetrina) 12 T2 (Navatha) - T6 (Cipermetrina) 13 T3 (Mbaua) - T6 (Cipermetrina) 14 T4 (Nthema) - T6 (Cipermetrina) 15 T5 (Beijo da mulata) - T6 (Cipermetrina) 16 T1 (Nliminhoto) - T7 (Sem tratamento) 17 T2 (Navatha) - T7 (Sem tratamento) 18 T3 (Mbaua) - T7 (Sem tratamento) 19 T4 (Nthema) - T7 (Sem tratamento) 20 T5 (Beijo da mulata) - T7 (Sem tratamento) 21 T6 (Cipermetrina) - T7 (Sem tratamento)
Z -0.1710240 0.1465920 0.3176160 0.1465920 0.3176160 0.0000000 0.1465920 0.3176160 0.0000000 0.0000000 -1.4903519 -1.3193279 -1.6369439 -1.6369439 -1.6369439 -1.0017119 -0.8306879 -1.1483039 -1.1483039 -1.1483039 0.4886400
P.unadj P.adj 0.8642049 1 0.8834541 1 0.7507763 1 0.8834541 1 0.7507763 1 1.0000000 1 0.8834541 1 0.7507763 1 1.0000000 1 1.0000000 1 0.1361317 1 0.1870595 1 0.1016422 1 0.1016422 1 0.1016422 1 0.3164827 1 0.4061499 1 0.2508431 1 0.2508431 1 0.2508431 1 0.6250966 1
GRAFICO:AUDPC DE ATAQUE E INFESTACAO DE AFIDIO NO FEIJAO NHEMBA
3. PRESENCA DE IMINGOS NATURAL > model.iminigos<-lm(AUDPC_Iminigos_natural~Trat, data=bio) > model.iminigos Call: lm(formula = AUDPC_Iminigos_natural ~ Trat, data = bio) Coefficients: (Intercept) TratT4 (Nthema) 19.75 16.00 TratT5 (Beijo da mulata) 0.75
TratT2 ( Navatha )
TratT3
(Mbaua)
1.25
-0.50
TratT6 (Cipermetrina) -6.75
TratT7 (Sem tratamento) -15.75
> with (bio, by (AUDPC_Iminigos_natural, Trat, summary)) Trat: T1 (Nliminhoto) Min. 1st Qu. Median Mean 3rd Qu. Max. 10.00 15.25 19.50 19.75 24.00 30.00 -----------------------------------------------------------------------------Trat: T2 ( Navatha ) Min. 1st Qu. Median Mean 3rd Qu. Max. 10.0 11.5 15.5 21.0 25.0 43.0 -----------------------------------------------------------------------------Trat: T3 (Mbaua) Min. 1st Qu. Median Mean 3rd Qu. Max. 9.00 15.75 19.00 19.25 22.50 30.00 -----------------------------------------------------------------------------Trat: T4 (Nthema) Min. 1st Qu. Median Mean 3rd Qu. Max. 32.00 32.75 35.00 35.75 38.00 41.00 -----------------------------------------------------------------------------Trat: T5 (Beijo da mulata) Min. 1st Qu. Median Mean 3rd Qu. Max.
6.00 6.75 15.50 20.50 29.25 45.00 -----------------------------------------------------------------------------Trat: T6 (Cipermetrina) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.0 7.5 14.5 13.0 20.0 23.0 -----------------------------------------------------------------------------Trat: T7 (Sem tratamento) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 2.25 4.50 4.00 6.25 7.00 > shapiro.test(resid(model.iminigos)) Shapiro-Wilk normality test data: resid(model.iminigos) W = 0.94204, p-value = 0.1246 > qqPlot(resid(model.iminigos)) [1] 5 2
> leveneTest (AUDPC_Iminigos_natural ~ Trat, data=bio) Levene's Test for Homogeneity of Variance (center = median) Df F value Pr(>F) group 6 1.3859 0.2661 21 > kruskal.test(AUDPC_Iminigos_natural ~ Trat, data=bio) Kruskal-Wallis rank sum test data: AUDPC_Iminigos_natural by Trat Kruskal-Wallis chi-squared = 13.407, df = 6, p-value = 0.037 > dunnTest(AUDPC_Iminigos_natural ~ Trat, data=bio, method = "bonferroni") Dunn (1964) Kruskal-Wallis multiple comparison p-values adjusted with the Bonferroni method.
Comparison P.adj 1 T1 (Nliminhoto) - T2 ( Navatha ) 1.000000000 2 T1 (Nliminhoto) - T3 (Mbaua) 1.000000000 3 T2 ( Navatha ) - T3 (Mbaua) 1.000000000 4 T1 (Nliminhoto) - T4 (Nthema) 1.000000000 5 T2 ( Navatha ) - T4 (Nthema) 1.000000000 6 T3 (Mbaua) - T4 (Nthema) 1.000000000 7 T1 (Nliminhoto) - T5 (Beijo da mulata) 1.000000000 8 T2 ( Navatha ) - T5 (Beijo da mulata) 1.000000000 9 T3 (Mbaua) - T5 (Beijo da mulata) 1.000000000 10 T4 (Nthema) - T5 (Beijo da mulata) 1.000000000 11 T1 (Nliminhoto) - T6 (Cipermetrina) 1.000000000 12 T2 ( Navatha ) - T6 (Cipermetrina) 1.000000000 13 T3 (Mbaua) - T6 (Cipermetrina) 1.000000000 14 T4 (Nthema) - T6 (Cipermetrina) 0.530020638 15 T5 (Beijo da mulata) - T6 (Cipermetrina) 1.000000000 16 T1 (Nliminhoto) - T7 (Sem tratamento) 0.905493566 17 T2 ( Navatha ) - T7 (Sem tratamento) 0.734517558 18 T3 (Mbaua) - T7 (Sem tratamento) 1.000000000 19 T4 (Nthema) - T7 (Sem tratamento) 0.008082644 20 T5 (Beijo da mulata) - T7 (Sem tratamento) 1.000000000 21 T6 (Cipermetrina) - T7 (Sem tratamento) 1.000000000
Z
P.unadj
-0.08606630 0.9314137156 0.08606630 0.9314137156 0.17213259 0.8633332895 -1.52767676 0.1265928119 -1.44161047 0.1494122938 -1.61374306 0.1065831696 0.15061602 0.8802786242 0.23668232 0.8129032553 0.06454972 0.9485325169 1.67829278 0.0932899562 0.71004695 0.4776750240 0.79611324 0.4259662173 0.62398065 0.5326402928 2.23772371 0.0252390780 0.55943093 0.5758676589 2.02255797 0.0431187412 2.10862427 0.0349770266 1.93649167 0.0528075114 3.55023473 0.0003848878 1.87194195 0.0612146350 1.31251102 0.1893477693
GRAFICO:AUDPC DE PRESENCA DE IMINIGOS NATURAL
4.PERCEVEJOS > model.Percevejo<-lm(AUDPC_Percevejos_sp~Trat, data=bio) > model.Percevejo Call: lm(formula = AUDPC_Percevejos_sp ~ Trat, data = bio) Coefficients: (Intercept) TratT4 (Nthema) 29.25 -3.25 TratT5 (Beijo da mulata) -3.25
TratT2 ( Navatha )
TratT3
(Mbaua)
-3.25
-3.25
TratT6 (Cipermetrina) -8.00
TratT7 (Sem tratamento) -9.75
> with (bio, by (AUDPC_Percevejos_sp, Trat, summary)) Trat: T1 (Nliminhoto) Min. 1st Qu. Median Mean 3rd Qu. Max. 26.00 26.00 26.00 29.25 29.25 39.00 -----------------------------------------------------------------------------Trat: T2 ( Navatha ) Min. 1st Qu. Median Mean 3rd Qu. Max. 26 26 26 26 26 26 -----------------------------------------------------------------------------Trat: T3 (Mbaua) Min. 1st Qu. Median Mean 3rd Qu. Max. 26 26 26 26 26 26 -----------------------------------------------------------------------------Trat: T4 (Nthema) Min. 1st Qu. Median Mean 3rd Qu. Max. 26 26 26 26 26 26 -----------------------------------------------------------------------------Trat: T5 (Beijo da mulata)
Min. 1st Qu. Median Mean 3rd Qu. Max. 26 26 26 26 26 26 -----------------------------------------------------------------------------Trat: T6 (Cipermetrina) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.00 19.50 26.00 21.25 27.75 33.00 -----------------------------------------------------------------------------Trat: T7 (Sem tratamento) Min. 1st Qu. Median Mean 3rd Qu. Max. 0.0 19.5 26.0 19.5 26.0 26.0 > shapiro.test(resid(model.Percevejo)) Shapiro-Wilk normality test data: resid(model.Percevejo) W = 0.74674, p-value = 1.403e-05 > qqPlot(resid(model.Percevejo)) [1] 28 27 FIGURA:
> leveneTest (AUDPC_Percevejos_sp ~ Trat, data=bio) Levene's Test for Homogeneity of Variance (center = median) Df F value Pr(>F) group 6 0.9611 0.4746 21 > kruskal.test(AUDPC_Percevejos_sp ~ Trat, data=bio) Kruskal-Wallis rank sum test data: AUDPC_Percevejos_sp by Trat Kruskal-Wallis chi-squared = 3.5072, df = 6, p-value = 0.743 > dunnTest(AUDPC_Percevejos_sp ~ Trat, data=bio, method = "bonferroni") Dunn (1964) Kruskal-Wallis multiple comparison p-values adjusted with the Bonferroni method. 1 2
Comparison Z P.unadj P.adj T1 (Nliminhoto) - T2 ( Navatha ) 0.95353526 0.34031894 1 T1 (Nliminhoto) - T3 (Mbaua) 0.95353526 0.34031894 1
3 T2 ( Navatha ) - T3 (Mbaua) 4 T1 (Nliminhoto) - T4 (Nthema) 5 T2 ( Navatha ) - T4 (Nthema) 6 T3 (Mbaua) - T4 (Nthema) 7 T1 (Nliminhoto) - T5 (Beijo da mulata) 8 T2 ( Navatha ) - T5 (Beijo da mulata) 9 T3 (Mbaua) - T5 (Beijo da mulata) 10 T4 (Nthema) - T5 (Beijo da mulata) 11 T1 (Nliminhoto) - T6 (Cipermetrina) 12 T2 ( Navatha ) - T6 (Cipermetrina) 13 T3 (Mbaua) - T6 (Cipermetrina) 14 T4 (Nthema) - T6 (Cipermetrina) 15 T5 (Beijo da mulata) - T6 (Cipermetrina) 16 T1 (Nliminhoto) - T7 (Sem tratamento) 17 T2 ( Navatha ) - T7 (Sem tratamento) 18 T3 (Mbaua) - T7 (Sem tratamento) 19 T4 (Nthema) - T7 (Sem tratamento) 20 T5 (Beijo da mulata) - T7 (Sem tratamento) 21 T6 (Cipermetrina) - T7 (Sem tratamento)
GRAFICO:
0.00000000 0.95353526 0.00000000 0.00000000 0.95353526 0.00000000 0.00000000 0.00000000 0.98885138 0.03531612 0.03531612 0.03531612 0.03531612 1.87175440 0.91821914 0.91821914 0.91821914 0.91821914 0.88290302
1.00000000 0.34031894 1.00000000 1.00000000 0.34031894 1.00000000 1.00000000 1.00000000 0.32273586 0.97182767 0.97182767 0.97182767 0.97182767 0.06124059 0.35850415 0.35850415 0.35850415 0.35850415 0.37728867
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
Related Documents
Audpc De Pragas
August 2019 21
Bonsai Manual Pragas Doencas
November 2019 19
As Sete Pragas De Antonio Cisneros
May 2020 7
Workshop Pragas Sessao4 Mauricio
November 2019 20
Dicas Verdes - As Pragas De Nossa Horta
November 2019 8
More Documents from ""
Audpc De Pragas
August 2019 21
El Ciudadano - Caminos Rurales, Arpae
June 2020 9
Test
August 2019 55
Teorias 0001.docx
May 2020 34
