Experimento em DIC
require(gsheet)
require(ExpDes.pt) # Pacote utilizado para análise de comparação de médias
- Dados para os exemplos, baixados de documento online compartilhado.
url <- 'https://docs.google.com/spreadsheets/d/128kq9B1xlAaxWsU_8uHk-2lnooEfg-j93CJX0UUVVgU/edit?usp=sharing'
dados <- gsheet2tbl(url)
- Exemplo de chamada de dados do computador
dados=read.table("C:/Rafael/Documentos/Experimentos/AprendizadoR/exemplos/dic.txt", header = T, dec=".", sep="\t")
- dic - Teste de agrupamento Scott-Knott (a linha de comando ? praticamente igual para todos os tipos de delineamento)
dic(dados$tratamento, dados$resposta, quali = TRUE, mcomp = "sk", sigT = 0.05, sigF = 0.05)
## ------------------------------------------------------------------------
## Quadro da analise de variancia
## ------------------------------------------------------------------------
## GL SQ QM Fc Pr>Fc
## Tratamento 9 53.272 5.9191 4.8931 0.00044905
## Residuo 30 36.291 1.2097
## Total 39 89.563
## ------------------------------------------------------------------------
## CV = 8.36 %
##
## ------------------------------------------------------------------------
## Teste de normalidade dos residuos (Shapiro-Wilk)
## p-valor: 0.9272071
## De acordo com o teste de Shapiro-Wilk a 5% de significancia, os residuos podem ser considerados normais.
## ------------------------------------------------------------------------
##
## Teste de Scott-Knott
## ------------------------------------------------------------------------
## Grupos Tratamentos Medias
## 1 a 6 15.2225
## 2 a 10 14.7000
## 3 b 1 13.6150
## 4 b 9 13.2600
## 5 b 4 13.2400
## 6 b 8 13.1475
## 7 b 5 13.0650
## 8 c 3 12.2150
## 9 c 2 11.8575
## 10 c 7 11.1925
## ------------------------------------------------------------------------
