Aula 5: Experimento Fatorial Fracionário: Fração um quarto (Girocóptero)

Objetivo da aula

O objetivo dessa aula é analisar dados de um experimento fatorial fracionário (fração um quarto).

Nessa análise, será utilizado o conjunto de dados gerado pelo experimento do Girocóptero com cinco fatores.

Realizando o experimento

O experimento será conduzido em sala de aula. Serão utilizados 5 fatores nesse experimento:

Tabela 4: Fatores e níveis para o experimento do Girocóptero.

Fator	Nome	-	+
A	Cauda	1 dobra	2 dobras
B	Clip	1 clip	2 clips
C	Asa	não dobrada	dobrada
D	Comp. Asa	inteira	cortada
E	Lançamento	reta	dobrada

Devem ser formados dois grupos para executarem os experimentos conforme o planejamento das tabelas 5 e 6.

Tabela 5: Grupo I: Experimento fatorial $2^{5-2}$.

Ensaio	A	B	C	D=BC	E=ABC
1	-	-	-	+	-
2	+	-	-	+	+
3	-	+	-	-	+
4	+	+	-	-	-
5	-	-	+	-	+
6	+	-	+	-	-
7	-	+	+	+	-
8	+	+	+	+	+

Tabela 6: Grupo II: Experimento fatorial $2^{5-2}$.

Ensaio	A	B	C	D=-BC	E=-ABC
1	-	-	-	-	+
2	+	-	-	-	-
3	-	+	-	+	-
4	+	+	-	+	+
5	-	-	+	+	-
6	+	-	+	+	+
7	-	+	+	-	+
8	+	+	+	-	-

Para analisar os dados, utilize os procedimentos da aula anterior.

Utilizando os pacotes BHH2 e FrF2 pode-se utilizar os seguintes procedimentos apra gerar uma fração 1/4 de uma experimento fatorial. Execute os comandos a seguir e interprete os resultados:

 
require(BHH2)
require(FrF2)

des<-ffDesMatrix(6,gen=list(c(5,1,2,3),c(6,2,3,4))) # 2^(6-2) 
des

y<-c(6,10,32,60,4,15,26,60,8,12,34,60,16,5,37,52)
dados<-data.frame(des,y);dados

colnames(dados)<-c(LETTERS[1:6],"y"); names(dados)

f.lm<-lm(y~A*B*C*D*E*F,data=dados)
efeitos<-f.lm$effects[2:16]
qqnorm(efeitos) 
qqline(efeitos)

identify(qqnorm(efeitos)$x,qqnorm(efeitos)$y)
efeitos


aliases(f.lm)
DanielPlot(f.lm)
MEPlot(f.lm)