# ===================================
# Creación de la tabla de corridas
# experimentales del diseño factorial
# General
# Dr. Carlos Téllez Martínez
# Junio de 2020
# Diseño y Análisis de experimentos
# ===================================

# =========================================
# Creación básica de la tabla de corridas
# =========================================
# Suponga un diseño factorial general con las siguientes
# características:
# Factor A: 3 niveles
# Factor B: 2 niveles
# Factor C: 3 niveles

# Número de corridas experimentales: 3*2*3 =18 corridas experimentales

Tabla <- expand.grid(A=c(1,2,3), 
                     B=c(1,2), 
                     C=c(1,2,3))
Tabla
##    A B C
## 1  1 1 1
## 2  2 1 1
## 3  3 1 1
## 4  1 2 1
## 5  2 2 1
## 6  3 2 1
## 7  1 1 2
## 8  2 1 2
## 9  3 1 2
## 10 1 2 2
## 11 2 2 2
## 12 3 2 2
## 13 1 1 3
## 14 2 1 3
## 15 3 1 3
## 16 1 2 3
## 17 2 2 3
## 18 3 2 3
# =========================================================
# Creación de la tabla de corridas con nombres de factores
# y nombres de los niveles de los factores
# =========================================================
# Factor A: Velocidad, niveles (100, 150, 200)
# Factor B: Temperatura, niveles (200, 300)
# Factor C: Presión. niveles (150, 200, 250)

Tabla2 <- expand.grid(Velocidad=c(100,150,200),
                      Temperatura =c(200,300),
                      Presión=c(150,200,250))
Tabla2
##    Velocidad Temperatura Presión
## 1        100         200     150
## 2        150         200     150
## 3        200         200     150
## 4        100         300     150
## 5        150         300     150
## 6        200         300     150
## 7        100         200     200
## 8        150         200     200
## 9        200         200     200
## 10       100         300     200
## 11       150         300     200
## 12       200         300     200
## 13       100         200     250
## 14       150         200     250
## 15       200         200     250
## 16       100         300     250
## 17       150         300     250
## 18       200         300     250