13 Intervalo de confiança
13.0.1 Conjunto de dados
Um experimento foi realizado com o intuito de avaliar a massa seca da raiz de soja no munícipio de Londrina-PR. O experimento foi instalado em delineamento inteiramente casualizado (DIC), 5 repetições, no esquema fatorial 4 x 2 (4 aplicações de dicloroisocianurato de sódio (DUP) e 2 inoculações de Rhizobium).
msraiz=c(4.87, 4.64, 3.71, 3.04, 4.57, 4.13, 3.8, 1.17, 3.28, 1.73, 1.87, 2.85, 3.32, 2.19, 2.33, 4.09, 2.85, 1.86, 2.17, 2.12, 3.03, 3.52, 3.72, 3.09, 5.11, 3.6, 2.14, 2.25, 1.93, 3.35, 2.03, 4.72, 3.39, 3.05, 2.98, 2.53, 5.61, 3.74, 2.89, 4.8)
(Inoculação=rep(c("IN","NI"),e=20))## [1] "IN" "IN" "IN" "IN" "IN" "IN" "IN" "IN" "IN" "IN" "IN" "IN" "IN" "IN" "IN"
## [16] "IN" "IN" "IN" "IN" "IN" "NI" "NI" "NI" "NI" "NI" "NI" "NI" "NI" "NI" "NI"
## [31] "NI" "NI" "NI" "NI" "NI" "NI" "NI" "NI" "NI" "NI"(Época=rep(c("Plantio","V1+15","V3+15","R1+15"),e=5,2))## [1] "Plantio" "Plantio" "Plantio" "Plantio" "Plantio" "V1+15" "V1+15"
## [8] "V1+15" "V1+15" "V1+15" "V3+15" "V3+15" "V3+15" "V3+15"
## [15] "V3+15" "R1+15" "R1+15" "R1+15" "R1+15" "R1+15" "Plantio"
## [22] "Plantio" "Plantio" "Plantio" "Plantio" "V1+15" "V1+15" "V1+15"
## [29] "V1+15" "V1+15" "V3+15" "V3+15" "V3+15" "V3+15" "V3+15"
## [36] "R1+15" "R1+15" "R1+15" "R1+15" "R1+15"F1=as.factor(Inoculação)
F2=as.factor(Época)
Trat=paste(F1,F2)
dados=data.frame(Trat,resp=msraiz)13.0.2 Gráfico de linhas
sciplot::lineplot.CI(Trat,msraiz,type="l",las=2,xlab="",ylim=c(0,5),
ylab="Massa seca da raiz (g)",
cex.lab=1.25,cex.names=1)
13.0.3 Gráfico de pontos
sciplot::lineplot.CI(Trat,msraiz,type="p",las=2,xlab="",ylim=c(0,5),
ylab="Massa seca da raiz (g)",
cex.lab=1.25,cex.names=1)
13.0.4 Gráfico de linhas e pontos
sciplot::lineplot.CI(Trat,msraiz,type="b",las=2,xlab="",ylim=c(0,5),
ylab="Massa seca da raiz (g)",
cex.lab=1.25,cex.names=1)
13.0.5 Gráfico de barras e linhas
sciplot::bargraph.CI(Trat,msraiz,las=2,xlab="",
ylab="Massa seca da raiz (g)",ylim=c(0,5),
cex.lab = 1.25,col = "black",
angle = 45, cex.names = 1,density = c(0,20))
abline(h=0)