## ============================================
# Dr. Carlos Téllez Martínez
# Abril 2015
# Creación de diseños factoriales a 2 niveles
# por medio del uso del paquete FrF2
# Diseño y Análisis de Experimentos
# Tecnológico de Monterrey, Campus Guadalajara
## ============================================

# Creación de Diseños factoriales a 2 niveles
# por medio del uso del paquete FRF2

library(FrF2)
## Loading required package: DoE.base
## Loading required package: grid
## Loading required package: conf.design
## 
## Attaching package: 'DoE.base'
## 
## The following objects are masked from 'package:stats':
## 
##     aov, lm
## 
## The following object is masked from 'package:graphics':
## 
##     plot.design
## 
## The following object is masked from 'package:base':
## 
##     lengths
# Creación de un diseño 2k con orden estándar y una réplica
Tabla1 <- FrF2(nruns = 4, nfactors = 2, replications = 1, randomize = F)
## creating full factorial with 4 runs ...
Tabla1
##    A  B
## 1 -1 -1
## 2  1 -1
## 3 -1  1
## 4  1  1
## class=design, type= full factorial
# Creación de diseño 3K aleatorizado con 2 replicas
Tabla2 <- FrF2(nruns = 8, nfactors = 3, replications = 2, randomize = T, seed = 1)
## creating full factorial with 8 runs ...
Tabla2
##    run.no run.no.std.rp  A  B  C
## 1       1           3.1 -1  1 -1
## 2       2           8.1  1  1  1
## 3       3           4.1  1  1 -1
## 4       4           5.1 -1 -1  1
## 5       5           1.1 -1 -1 -1
## 6       6           7.1 -1  1  1
## 7       7           2.1  1 -1 -1
## 8       8           6.1  1 -1  1
## 9       9           6.2  1 -1  1
## 10     10           1.2 -1 -1 -1
## 11     11           2.2  1 -1 -1
## 12     12           7.2 -1  1  1
## 13     13           3.2 -1  1 -1
## 14     14           8.2  1  1  1
## 15     15           4.2  1  1 -1
## 16     16           5.2 -1 -1  1
## class=design, type= full factorial 
## NOTE: columns run.no and run.no.std.rp are annotation, not part of the data frame
# Creación de diseño 3k, con nombres de factores y niveles, 2 réplicas y orden estándar
Tabla3 <- FrF2(nruns = 8, nfactors = 3, 
               factor.names = list(Presion=c(25,30), 
                                   Temperatura=c(45,96), 
                                   Material=c("Tipo1", "Tipo2")), 
               replications = 2, randomize = F)
## creating full factorial with 8 runs ...
Tabla3
##    run.no run.no.std.rp Presion Temperatura Material
## 1       1           1.1      25          45    Tipo1
## 2       2           2.1      30          45    Tipo1
## 3       3           3.1      25          96    Tipo1
## 4       4           4.1      30          96    Tipo1
## 5       5           5.1      25          45    Tipo2
## 6       6           6.1      30          45    Tipo2
## 7       7           7.1      25          96    Tipo2
## 8       8           8.1      30          96    Tipo2
## 9       9           1.2      25          45    Tipo1
## 10     10           2.2      30          45    Tipo1
## 11     11           3.2      25          96    Tipo1
## 12     12           4.2      30          96    Tipo1
## 13     13           5.2      25          45    Tipo2
## 14     14           6.2      30          45    Tipo2
## 15     15           7.2      25          96    Tipo2
## 16     16           8.2      30          96    Tipo2
## class=design, type= full factorial 
## NOTE: columns run.no and run.no.std.rp are annotation, not part of the data frame