DADOS
dados=read.csv("C:/Users/Samsung/Documents/Doutorado CENA_USP/Aulas e disciplinas/Metodos agronomicos/Pratica 3/database.csv")
str(dados)
'data.frame': 6 obs. of 5 variables:
$ capim : chr "A" "A" "A" "B" ...
$ rep : int 1 2 3 1 2 3
$ GMDtm : num 0.604 0.375 0.604 0.74 0.865 ...
$ CS : num 602 567 556 480 511 ...
$ ganho.ha: num 364 213 336 355 442 ...
View(dados)
dados
Ganho Médio Diário do traçador médio (GMDtm)
Cálculos em delineamento CC
ExpDes.pt::dic(dados$capim, dados$GMDtm, quali = T, mcomp = "tukey", sigT = 0.05, sigF = 0.05)
------------------------------------------------------------------------
Quadro da analise de variancia
------------------------------------------------------------------------
GL SQ QM Fc Pr>Fc
Tratamento 1 0.101725 0.101725 9.2516 0.03834
Residuo 4 0.043981 0.010995
Total 5 0.145707
------------------------------------------------------------------------
CV = 15.94 %
------------------------------------------------------------------------
Teste de normalidade dos residuos ( Shapiro-Wilk )
Valor-p: 0.1183036
De acordo com o teste de Shapiro-Wilk a 5% de significancia, os residuos podem ser considerados normais.
------------------------------------------------------------------------
------------------------------------------------------------------------
Teste de homogeneidade de variancia
valor-p: 0.4059256
De acordo com o teste de bartlett a 5% de significancia, as variancias podem ser consideradas homogeneas.
------------------------------------------------------------------------
Teste de Tukey
------------------------------------------------------------------------
Grupos Tratamentos Medias
a B 0.7881944
b A 0.5277778
------------------------------------------------------------------------
Cálculos em delineamento BCC
ExpDes.pt::dbc(dados$capim, dados$rep, dados$GMDtm, quali = T, mcomp = "tukey", sigT = 0.05, sigF = 0.05)
------------------------------------------------------------------------
Quadro da analise de variancia
------------------------------------------------------------------------
GL SQ QM Fc Pr>Fc
Tratamento 1 0.101725 0.101725 5.1511 0.15128
Bloco 2 0.004485 0.002242 0.1136 0.89803
Residuo 2 0.039497 0.019748
Total 5 0.145707
------------------------------------------------------------------------
CV = 21.36 %
------------------------------------------------------------------------
Teste de normalidade dos residuos
valor-p: 0.5781739
De acordo com o teste de Shapiro-Wilk a 5% de significancia, os residuos podem ser considerados normais.
------------------------------------------------------------------------
------------------------------------------------------------------------
Teste de homogeneidade de variancia
valor-p: NaN
Error in if (pvalor.hvar < 0.05) { :
missing value where TRUE/FALSE needed
Capacidade de suporte (CS)
ExpDes.pt::dic(dados$capim, dados$CS, quali = T, mcomp = "tukey", sigT = 0.05, sigF = 0.05)
------------------------------------------------------------------------
Quadro da analise de variancia
------------------------------------------------------------------------
GL SQ QM Fc Pr>Fc
Tratamento 1 10758.5 10758.5 23.939 0.0080862
Residuo 4 1797.7 449.4
Total 5 12556.1
------------------------------------------------------------------------
CV = 3.98 %
------------------------------------------------------------------------
Teste de normalidade dos residuos ( Shapiro-Wilk )
Valor-p: 0.1037757
De acordo com o teste de Shapiro-Wilk a 5% de significancia, os residuos podem ser considerados normais.
------------------------------------------------------------------------
------------------------------------------------------------------------
Teste de homogeneidade de variancia
valor-p: 0.7113173
De acordo com o teste de bartlett a 5% de significancia, as variancias podem ser consideradas homogeneas.
------------------------------------------------------------------------
Teste de Tukey
------------------------------------------------------------------------
Grupos Tratamentos Medias
a A 575.0285
b B 490.3391
------------------------------------------------------------------------
Ganho por hectare (kg/ha)
ExpDes.pt::dic(dados$capim, dados$ganho.ha, quali = T, mcomp = "tukey", sigT = 0.05, sigF = 0.05)
------------------------------------------------------------------------
Quadro da analise de variancia
------------------------------------------------------------------------
GL SQ QM Fc Pr>Fc
Tratamento 1 10380 10379.7 2.382 0.19762
Residuo 4 17431 4357.6
Total 5 27810
------------------------------------------------------------------------
CV = 19.1 %
------------------------------------------------------------------------
Teste de normalidade dos residuos ( Shapiro-Wilk )
Valor-p: 0.465713
De acordo com o teste de Shapiro-Wilk a 5% de significancia, os residuos podem ser considerados normais.
------------------------------------------------------------------------
------------------------------------------------------------------------
Teste de homogeneidade de variancia
valor-p: 0.5152272
De acordo com o teste de bartlett a 5% de significancia, as variancias podem ser consideradas homogeneas.
------------------------------------------------------------------------
De acordo com o teste F, as medias nao podem ser consideradas diferentes.
------------------------------------------------------------------------
------------------------------------------------------------------------
LS0tDQp0aXRsZTogIkFuZXhvIDMgLSBPdXRwdXQgZG8gUiINCm91dHB1dDoNCiAgaHRtbF9ub3RlYm9vazoNCiAgICB0b2M6IHllcw0KICAgIHRvY19kZXB0aDogMQ0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogeWVzDQogICAgdG9jX2RlcHRoOiAnMScNCiAgICBkZl9wcmludDogcGFnZWQNCi0tLQ0KDQoqKioNCg0KIyAqKkRBRE9TKioNCg0KYGBge3J9DQpkYWRvcz1yZWFkLmNzdigiQzovVXNlcnMvU2Ftc3VuZy9Eb2N1bWVudHMvRG91dG9yYWRvIENFTkFfVVNQL0F1bGFzIGUgZGlzY2lwbGluYXMvTWV0b2RvcyBhZ3Jvbm9taWNvcy9QcmF0aWNhIDMvZGF0YWJhc2UuY3N2IikNCnN0cihkYWRvcykNClZpZXcoZGFkb3MpDQpkYWRvcw0KYGBgDQoNCiMgKipHYW5obyBNw6lkaW8gRGnDoXJpbyBkbyB0cmHDp2Fkb3IgbcOpZGlvIChHTUR0bSkqKg0KDQojIyAqQ8OhbGN1bG9zIGVtIGRlbGluZWFtZW50byBDQyoNCg0KYGBge3J9DQpFeHBEZXMucHQ6OmRpYyhkYWRvcyRjYXBpbSwgZGFkb3MkR01EdG0sIHF1YWxpID0gVCwgbWNvbXAgPSAidHVrZXkiLCBzaWdUID0gMC4wNSwgc2lnRiA9IDAuMDUpDQpgYGANCg0KIyMgKkPDoWxjdWxvcyBlbSBkZWxpbmVhbWVudG8gQkNDKg0KDQpgYGB7cn0NCkV4cERlcy5wdDo6ZGJjKGRhZG9zJGNhcGltLCBkYWRvcyRyZXAsIGRhZG9zJEdNRHRtLCBxdWFsaSA9IFQsIG1jb21wID0gInR1a2V5Iiwgc2lnVCA9IDAuMDUsIHNpZ0YgPSAwLjA1KQ0KDQpgYGANCg0KIyAqKkNhcGFjaWRhZGUgZGUgc3Vwb3J0ZSAoQ1MpKioNCg0KYGBge3J9DQpFeHBEZXMucHQ6OmRpYyhkYWRvcyRjYXBpbSwgZGFkb3MkQ1MsIHF1YWxpID0gVCwgbWNvbXAgPSAidHVrZXkiLCBzaWdUID0gMC4wNSwgc2lnRiA9IDAuMDUpDQpgYGANCg0KIyAqKkdhbmhvIHBvciBoZWN0YXJlIChrZy9oYSkqKg0KDQpgYGB7cn0NCkV4cERlcy5wdDo6ZGljKGRhZG9zJGNhcGltLCBkYWRvcyRnYW5oby5oYSwgcXVhbGkgPSBULCBtY29tcCA9ICJ0dWtleSIsIHNpZ1QgPSAwLjA1LCBzaWdGID0gMC4wNSkNCmBgYA0KDQoNCg0KDQoNCg0K