In [1]:
# rm(list=ls())
options(OutDec = ",")
#===============================================================================
In [2]:
#===============================================================================
# Dados da Tabela 2.4b - Figura 2.10
#===============================================================================
dados <- read.csv("../dados/Tabela-2-4b.csv",sep=";",dec=",",header=F)
dados <- as.vector(unlist(dados))
print(dados)
[1] 998,011 1001,324 997,659 999,296 997,800 1001,324 1007,074 994,580 [9] 993,374 1000,326 998,153 1002,185 998,563 997,457 1001,253 1005,057 [17] 991,500 1004,308 1001,356 996,461 1003,754 1002,167 993,962 998,424 [25] 1004,081 997,800 1001,520 1003,345 997,844 1000,909 1007,354 1002,166 [33] 999,103 999,303 1002,819 1002,425 995,085 995,936 1003,320 1009,477
In [3]:
#===============================================================================
# Definindo os limites de controle de X.
# Observação: aprenderemos a calcular estes limites ao longo da disciplina.
#===============================================================================
LSC.X <- 1015
LM.X <- 1000
LIC.X <- 985
In [4]:
#===============================================================================
# Gráfico de controle de X.
#===============================================================================
par(mfrow=c(1,1),lwd=2.0,cex.lab=1.5,cex.axis=1.5,lab=c(10,7,5),
mar=c(5,5,2,2.5),xpd=T,cex.main=2.0,bty="n")
plot(1:40,dados,type="l",lwd=2,col="darkblue",main="",xlim=c(0,45),
ylim=c(975,1025),xlab="Número da observação",ylab=paste(expression(X)," (mL)",""))
points(1:40,dados,pch=16,cex=2,col="darkblue")
lines(0:42,rep(LSC.X,43),lwd=3,col="red",lty=2)
lines(0:42,rep(LM.X,43), lwd=3,col="red",lty=3)
lines(0:42,rep(LIC.X,43),lwd=3,col="red",lty=2)
text(45,LSC.X,"LSC",cex=1.5,lwd=2)
text(45,LM.X, "LM", cex=1.5,lwd=2)
text(45,LIC.X,"LIC",cex=1.5,lwd=2)
In [5]:
#===============================================================================
# Fim
#===============================================================================