R y RStudio para Métodos Estadísticos
R y RStudio para Métodos Estadísticos
INDICE:
INTRODUCCIÓN...........................................................................................................1
MARCO TEORICO........................................................................................................4
1.1. ¿Qué es el Lenguaje R?............................................................................................4
1.2. ¿Qué es Rstudio?......................................................................................................4
1.3. Estadística en RStudio..............................................................................................4
I. INSTALACIÓN Y REQUERIMIENTO DE R y RSTUDIO...............................6
1.1. Descarga e instalación del software R (Windows 11):.............................................6
1.2. Descarga e instalación del software Rstudio (Windows 11):.................................14
II. DESCRIPCION DE LAS INTERFACES DE R Y RSTUDIO:.........................20
2.1. Descripción de las interfaces de R y Rstudio.........................................................20
2.1.1. Descripción del interfaz de R..........................................................................20
2.1.2. Descripción del interfaz de Rstudio................................................................25
III. INSTALACIÓN DE PAQUETES EN R STUDIO..............................................27
3.1. ¿Qué es la instalación de paquetes en Rstudio?.....................................................27
3.2. ¿Cómo se instala?...................................................................................................27
3.3. Paquetes estadísticos de Rstudio............................................................................29
3.3.1. agricolae:.........................................................................................................29
3.3.2. readxl:..............................................................................................................30
3.3.3. ggplot2:...........................................................................................................31
3.3.4. rmarkdown:.....................................................................................................31
IV. CONCEPTOS BÁSICOS NECESARIOS Y ATAJOS EN RSTUDIO:............33
4.1. Vectores:.................................................................................................................33
4.2. Análisis estadístico.................................................................................................34
4.3. Factor......................................................................................................................34
4.3.1. Nivel de Factor................................................................................................34
4.4. Tratamiento.............................................................................................................35
4.5. Réplicas..................................................................................................................35
V. IMPORTACIÓN DE ARCHIVOS EXCEL A R STUDIO.................................36
VI. ANALISIS DE DATOS UTILIZANDO LA ESTADISTICA DESCRIPTIVA 39
6.1. ¿Qué es la estadística descriptiva?.........................................................................39
3
FIGURA 1...............................................................................................................................6
FIGURA 2...............................................................................................................................7
Instalación de R.....................................................................................................................7
FIGURA 3...............................................................................................................................7
FIGURA 4...............................................................................................................................8
FIGURA 5...............................................................................................................................8
FIGURA 6...............................................................................................................................9
FIGURA 7...............................................................................................................................9
FIGURA 8.............................................................................................................................10
FIGURA 9.............................................................................................................................10
FIGURA 10...........................................................................................................................11
FIGURA 11...........................................................................................................................11
FIGURA 12...........................................................................................................................12
FIGURA 13...........................................................................................................................12
FIGURA 14...........................................................................................................................13
FIGURA 15...........................................................................................................................13
FIGURA 16...........................................................................................................................14
FIGURA 17...........................................................................................................................14
FIGURA 18...........................................................................................................................15
FIGURA 19...........................................................................................................................15
FIGURA 20...........................................................................................................................16
FIGURA 21...........................................................................................................................16
FIGURA 22...........................................................................................................................17
FIGURA 23...........................................................................................................................17
FIGURA 24...........................................................................................................................18
FIGURA 25...........................................................................................................................18
FIGURA 26...........................................................................................................................19
FIGURA 27...........................................................................................................................19
FIGURA 28...........................................................................................................................20
FIGURA 29...........................................................................................................................21
FIGURA 30...........................................................................................................................21
FIGURA 31...........................................................................................................................22
2
FIGURA 32...........................................................................................................................22
FIGURA 33...........................................................................................................................23
FIGURA 34...........................................................................................................................23
FIGURA 35...........................................................................................................................25
FIGURA 36...........................................................................................................................26
FIGURA 37...........................................................................................................................27
FIGURA 38...........................................................................................................................28
FIGURA 39...........................................................................................................................28
FIGURA 40...........................................................................................................................29
FIGURA 41...........................................................................................................................30
FIGURA 42...........................................................................................................................30
FIGURA 43...........................................................................................................................31
FIGURA 44...........................................................................................................................32
FIGURA 45...........................................................................................................................36
FIGURA 46...........................................................................................................................37
FIGURA 47...........................................................................................................................37
FIGURA 48...........................................................................................................................38
FIGURA 49 .....................................................................................................................38
FIGURA 50...........................................................................................................................41
FIGURA 51...........................................................................................................................42
FIGURA 52...........................................................................................................................44
FIGURA 53...........................................................................................................................45
FIGURA 54...........................................................................................................................45
FIGURA 55...........................................................................................................................46
FIGURA 56...........................................................................................................................46
FIGURA 57...........................................................................................................................47
FIGURA 58...........................................................................................................................47
FIGURA 59...........................................................................................................................63
FIGURA 60...........................................................................................................................65
FIGURA 61...........................................................................................................................67
FIGURA 62...........................................................................................................................68
FIGURA 63...........................................................................................................................69
FIGURA 64...........................................................................................................................78
3
FIGURA 65...........................................................................................................................78
FIGURA 66...........................................................................................................................81
FIGURA 67...........................................................................................................................83
INTRODUCCIÓN
MARCO TEORICO
Para comprender mejor estas características distintivas, es útil conocer un poco sobre los
orígenes de este lenguaje de programación.
Una vez completados estos pasos, ya tendrás tanto R como RStudio instalados en tu
computadora y podrás empezar a trabajar en tus análisis de datos y programación en R.
Para realizar la instalación de R usted debe visitar la página del CRAN (Comprehensive
R Archive Network) disponible en este enlace. Una vez ingrese encontrará los enlaces de la
instalación para los sistemas operativos Linux, Mac y Windows.
FIGURA 1
Instalación de R
7
FIGURA 2
II. Instalación de R
3ro Paso: Click en Download R-4.4.0 for Windows (82 megabytes, 64 bit)
FIGURA 3
Instalación de R
8
FIGURA 4
Instalación de R
5to Paso: Una vez finalizada la descarga, abrimos el archivo y hacemos clic en "Sí".
FIGURA 5
Instalación de R
9
FIGURA 6
Instalación de R
FIGURA 7
Instalación de R
10
FIGURA 8
Instalación de R
FIGURA 9
Instalación de R
11
FIGURA 10
Instalación de R
FIGURA 11
Instalación De R
12
FIGURA 12
Instalación de R
FIGURA 13
Instalación de R
13
FIGURA 14
Visualización de R
FIGURA 15
Aplicación R
14
1er Paso: Antes de descargar, se tiene que revisar las características de nuestro equipo.
FIGURA 16
Especificaciones de ordenador.
15
2do Paso: Nos dirigimos a nuestro navegador web y en la barra de búsqueda ingresamos
la siguiente dirección: [Link]
FIGURA 17
Instalación de Rstudio
16
FIGURA 18
Instalación de Rstudio
FIGURA 19
FIGURA 20
Instalación de Rstudio
6to Paso: Damos clic en “Siguiente” e “Instalar” según corresponda en cada ventana de
instalación
FIGURA 21
Instalación de Rstudio
18
FIGURA 22
Instalación de Rstudio
FIGURA 23
Instalación de Rstudio
19
FIGURA 24
Instalación de Rstudio
FIGURA 25
Instalación de Rstudio
20
FIGURA 26
Visualización de Rstudio
FIGURA 27
Aplicación Rstudio
21
FIGURA 28
Visualización de la consola R
FIGURA 29
2do Paso: Después, desplegamos opción Paquetes, Instalar paquete(s)… Abrimos Menú –
Paquetes y pinchamos en Cargar paquete: Escogemos fBasics y Rcmdr y OK:
FIGURA 30
23
Cargar el Rcommander
Para poder trabajar con los datos en el R, tenemos que cargar el Rcommander. Vamos a
menú Paquetes, Cargar paquete
FIGURA 31
3er Paso: Escogemos Rcmdr Aparecerá la ventana que indica que debemos instalar otros
paquetes de CRAN mirror, le damos a Aceptar.
24
FIGURA 32
4to Paso: Después de instalación de algunos contenidos, que puede tardar algunos
minutos, se activará la ventana de Rcommander:
FIGURA 33
5to Paso: Siempre tendremos las dos ventanas presentes para poder trabajar, una (la del
fondo) es la de la consola R, que se denomina RGui (Graphical user interface) y la de delante R
25
Commander, en la que podemos trabajar sin usar el lenguaje de comandos, utilizando las tareas
que tiene éste:
FIGURA 34
FIGURA 35
Interfaz de Rstudio
1 2
Partes de la interfaz:
Ventana (1): es el editor de sintaxis: se trata del lugar donde editamos la sintaxis para
posteriormente ejecutarla. Al escribir allí no sucederá nada, a no ser que se apriete algún botón
para ejecutar los comandos (“RUN”) o la tecla ctrl+enter.
Ventana (3) tiene varias sub pestañas: (i) la pestaña files permite ver el historial de
archivos trabajados con el programa; (ii) la pestaña plots permite visualizar los gráficos que se
generen; (iii) la pestaña packages permite ver los paquetes descargados y guardados en el disco
duro así como gestionar su instalación o actualización; (iv) la ventana help permite acceder al
28
CRAN - Comprehensive R Archive Network (siempre que se cuente con conexión a Internet),
página oficial del software que ofrece diferentes recursos para el programa: manuales para el
usuario, cursos online, información general, descarga de paquetes, información de los paquetes
instalados, etc. Esta última pestaña es bastante útil: empleando el motor de búsqueda se accede
de manera rápida a manuales de uso de los diferentes paquetes (y sus funciones) instalados en el
computador (esto no requiere conexión a Internet).; (v) la ventana viewer muestra los resultados
al construir reportes mediante funcionalidades tipo rmarkdown.
Menú superior:
FIGURA 36
New File:
FIGURA 37
Algunos paquetes vienen instalados por defecto en R y otros deben ser instalados, lo cual
resulta ser bastante sencillo. Tenemos dos formas de instalar paquetes en R: desde la consola de
comandos o a través de la interfaz de RStudio. Por ejemplo, vamos a instalar el paquete
“ggplot2”, uno de los más usados en R.
Tenemos que usar el comando [Link]() e introducir el nombre del paquete que
queremos instalar entre comillas
30
FIGURA 38
Comando [Link]()
a. Interfaz de RStudio
FIGURA 39
2do Paso: Desde el asistente, escribiremos el nombre del paquete que queremos instalar y
pulsaremos sobre instalar
FIGURA 40
Estos paquetes son como herramientas que hacen que trabajar con datos en RStudio sea
mucho más fácil.
IV.3.1. agricolae:
FIGURA 41
IV.3.2. readxl:
FIGURA 42
IV.3.3. ggplot2:
FIGURA 43
IV.3.4. rmarkdown:
FIGURA 44
V.1. Vectores:
En RStudio, puedes usar funciones específicas para manipular y transformar datos, como,
por ejemplo, renombrar códigos o cualquier otro tipo de datos. Una función útil para esto es
dplyr, un paquete popular en R que facilita la manipulación de datos de manera eficiente. Aquí
tienes un ejemplo de cómo usar dplyr para renombrar códigos en un conjunto de datos:
[Link]("dplyr")
library(dplyr)
print(datos)
"CodigoC"))
36
En este ejemplo:
Primero creamos un conjunto de datos datos con una columna codigo que contiene
valores "A", "B" y "C".
Usamos la función mutate de dplyr junto con recode para renombrar los códigos "A", "B"
y "C" a "CodigoA", "CodigoB" y "CodigoC", respectivamente.
Finalmente, mostramos los datos originales y los datos modificados para ver el efecto de
la transformación.
V.3. Factor
Un factor es una variable categórica que se utiliza para agrupar los datos en diferentes
categorías. Se utiliza para identifica las variables categóricas en un experimento. Por ejemplo,
en un experimento agrícola, un factor podría ser el tipo de fertilizante utilizado.
# Definir los niveles del factor "Fertilizante" fertilizantes <- factor(c("A", "B", "C"))
Los niveles de un factor son las diferentes categorías o valores que puede tomar un factor.
Siguiendo con el ejemplo anterior, si el factor es el tipo de fertilizante, los niveles podrían ser
"Fertilizante A", "Fertilizante B" y "Fertilizante C". Permiten estudiar diferentes condiciones
dentro de un factor.
37
V.4. Tratamiento
V.5. Réplicas
Las réplicas son repeticiones del mismo tratamiento en un experimento. Las réplicas son
importantes para estimar la variabilidad y aumentar la precisión del experimento. Aumentan la
precisión y permiten estimar la variabilidad del experimento.
Para importar archivos de Excel a RStudio, se puede utilizar el paquete "readxl" que
permite leer archivos de Excel en formato xls y xlsx.
FIGURA 45
1er Paso: Antes de importar un archivo Excel a RStudio, es esencial asegurarse de que los
datos del archivo estén adecuadamente preparados. Para ello, es importante considerar los
siguientes aspectos:
Tipo de Datos Correcto: Verifique que los tipos de datos (numéricos, fechas,
texto) sean consistentes y adecuados en todas las columnas.
Sin Filas ni Columnas Adicionales: Elimine cualquier fila o columna extra que no
forme parte de los datos relevantes, como títulos o notas.
39
Datos Sin Errores: Revise y corrija cualquier error tipográfico o entrada incorrecta
en los datos.
FIGURA 46
FIGURA 47
Excel a Rstudio
40
3er Paso: Luego, al seleccionar la opción From Excel nos aparecerá una ventana como la
que se mostrará a continuación, allí haremos clic en donde dice Browse para ubicar nuestro
archivo en el escritorio.
FIGURA 48
4to Paso: Finalmente, verificamos que nos aparezca la data en el panel R Script. Si este se
visualiza en dicho panel, quiere decir que la importación de los datos que se encuentran en el
archivo Excel ha sido exitosa
FIGURA 49
Excel a Rstudio
41
Las medidas de tendencia central son medidas estadísticas que pretenden resumir en un
solo valor a un conjunto de valores. Representan un centro en torno al cual se encuentra ubicado
el conjunto de los datos. Las medidas de tendencia central más utilizadas son: media, mediana y
moda. (Rafael, 2018)
Ejem:
VII.2.1.1. Media:
VII.2.1.2. Mediana:
VII.2.1.3. Moda:
No hay una función específica incorporada en R para calcular la moda, pero se puede
determinar utilizando una combinación de las funciones table(), [Link](), y names()
# Calcular la moda
print(paste("Moda:", moda))
VII.2.2.1. Rango:
VII.2.2.2. Varianza:
43
# Calcular la varianza
print(paste("Varianza:", varianza))
Para crear un histograma en RStudio, puedes utilizar la función hist() que está incluida en
R base. Los histogramas son útiles para visualizar la distribución de una variable numérica. Aquí
te muestro cómo puedes crear un histograma paso a paso.
FIGURA 50
44
boxplot(nombre del valor dependiente~nombre del valor independiente, data = nombre del
Excel, col=”red”, main=”Titulo del diagrama")
FIGURA 51
ANOVA con un
Completamente al
0 criterio de Y =μ+ τ +ε
azar
clasificación
HIPOTESIS:
H 0=μ 1=μ2=μ3=μ 4 H a ≠ μ 1 ≠ μ2 ≠ μ3 ≠ μ 4
Dos opciones:
EJERCICIO DE PRACTICA.
1er Paso: Importar y cargar los datos en R Studio (Como tabla o vectores)
FIGURA 52
2do Paso: Definir los factores: Los factores son las variables, es decir todas las variables
son factores a excepción de la variable respuesta, y se hace con el siguiente código:
FIGURA 53
FIGURA 54
4to Paso: Realizar el análisis estadístico correspondiente para comparar los tratamientos y
determinar si existen diferencias significativas. Para esto podemos consultar en la consola
después de haber corrido todos nuestros códigos.
FIGURA 55
Resultados en Rstudio
INTERPRETACION:
2.
FIGURA 56
FIGURA 57
FIGURA 58
Ventajas:
Desventajas:
HIPOTESIS:
Dos opciones:
Figura 1:
Excel a Rstudio
Solución
Ensamblaje<-factor(c(3,4,1,2,2,3,4,1,1,2,3,4,4,1,2,3),labels=c("A","B","C","D"))
Filas<-gl(4,4)
Columnas<-gl(4,1,length=16)
Tiempo<-c(10,14,7,8,7,18,11,8,5,10,11,9,10,10,12,14)
53
# 1 1 1 C 10
#
# 2 1 2 D 14
#
# 3 1 3 A 7
#
# 4 1 4 B 8
#
# 5 2 1 B 7
#
# 6 2 2 C 18
#
# 7 2 3 D 11
#
# 8 2 4 A 8
#
# 9 3 1 A 5
#
# 10 3 2 B 10
#
# 11 3 3 C 11
#
# 12 3 4 D 9
#
54
# 13 4 1 D 10
#
# 14 4 2 A 10
#
# 15 4 3 B 12
#
# 16 4 4 C 14
#
para i = j = k = 1, 2, 3, 4
anova(ModeloDCL)
## $statistics
## MSerror Df Mean CV MSD
## 1.75 6 10.25 12.9061 3.238134
##
## $parameters
## test name.t ntr StudentizedRange alpha
## Tukey Ensamblaje 4 4.895599 0.05
##
## $means
## Tiempo std r Min Max Q25 Q50 Q75
## A 7.50 2.081666 4 5 10 6.50 7.5 8.50
## B 9.25 2.217356 4 7 12 7.75 9.0 10.50
## C 13.25 3.593976 4 10 18 10.75 12.5 15.00
## D 11.00 2.160247 4 9 14 9.75 10.5 11.75
##
## $comparison
## NULL
##
## $groups
## Tiempo groups
## C 13.25 a
## D 11.00 ab
## B 9.25 bc
## A 7.50 c
##
## attr(,"class")
## [1] "group"
Los resultados de la prueba de tukey muestran diferencias entre los tratamientos C y B, los tratamientos A y
C, y los tramientos A y D.
56
TÉCNICA
FACTORES DE MODELO
DISEÑO ESTADÍSTIC
BLOQUE ESTADISTICO
A
ANOVA con
Bloques Completos al
2 tres criterios de Y =μ+ τ + γ +δ +ε
azar
clasificación
Para diseñar un DCL (Latin Square Design) en R Studio, primero necesitamos instalar el
paquete agricolae que nos ayudará a crear el diseño.
if(!require(agricolae)){
[Link]("agricolae")
57
library(agricolae)
print(diseño)
diseño$sketch
[Link](123)
print(datos)
summary(modelo)
1.
Tipos de raciones
ABCD
1.
1.
A B C D
Raciones
INTERPRETACION
El diagrama de cajas nos indica que no hay una diferencia significativa en la posición de
los valores de cada tipo de ración
Tipos de casilleros
ABCD
Pesos_de_poll
1.
1.
1.
1 2 3 4
Casilleros
INTERPRETACION
El diagrama de cajas nos indica que hay una diferencia significativa en la posición de los
valores de los tipos de casilleros 1,2 y 3 con respecto al casillero 4
1.
Tipos de pisos
1234
1.
1.
1 2 3 4
Pisos
INTERPRETACION
El diagrama de cajas nos indica que no hay una diferencia significativa en la posición de
los valores de cada tipo de piso.
XII. DISEÑO COMPUESTO CENTRAL ROTABLE
[Link]("rsm")
library(rsm)
Define los factores y niveles de tu experimento. Por ejemplo, si tienes dos factores (A y
Analiza los resultados del modelo para interpretar los efectos de los factores:
# Gráfico de contorno
contour(model, ~ A + B)
# Gráfico de superficie de respuesta
persp(model, ~ A + B, col = "lightblue", theta = 30, phi = 30)
63
Paso 7: Optimización
Primero, debes instalar y cargar el paquete FrF2, que es específico para el diseño
fraccional.
[Link]("FrF2")
library(FrF2)
Decide el número de factores y niveles que vas a usar. Por ejemplo, si tienes 4 factores
(A, B, C, D) y quieres realizar un diseño fraccionado 24 −1, puedes usar el siguiente código:
responses <- c(34, 45, 23, 67, 56, 29, 50, 40) # Ejemplo de respuestas medidas
design <- [Link](design, responses)
print(design)
Utiliza la función lm para ajustar un modelo lineal a los datos y analizar los efectos de los
factores.
Puedes usar gráficos para visualizar los efectos principales y las interacciones.
# Efectos principales
library(ggplot2)
[Link] <- FrF2(8, 4, generators = "D=ABC", [Link] = c("Factor1",
"Factor2", "Factor3", "Factor4"))
effects <- DanielPlot(model, half=FALSE, code=TRUE)
print(effects)
# Gráfico de interacción
[Link](design$Factor1, design$Factor2, responses)
66
Interpreta los coeficientes y los gráficos para determinar qué factores y sus interacciones
son significativos en tu experimento.
EJERCICIO
FIGURA 59
estimar los efectos del experimento completo, son sólo la mitad de un factorial 25. La tabla de
datos se muestra a continuación:
library(printr)
## Registered S3 method overwritten by 'printr':
## method from
## knit_print.[Link] rmarkdown
datos=[Link]("[Link]",header= TRUE)
str(datos)
## '[Link]': 16 obs. of 6 variables:
## $ A : int -1 1 -1 1 -1 1 -1 1 -1 1 ...
## $ B : int -1 -1 1 1 -1 -1 1 1 -1 -1 ...
## $ C : int -1 -1 -1 -1 1 1 1 1 -1 -1 ...
## $ D : int -1 -1 -1 -1 -1 -1 -1 -1 1 1 ...
## $ E : int 1 -1 -1 1 -1 1 1 -1 -1 1 ...
A B C D E Alcohol_obtenido
-1 -1 -1 -1 1 32.9
1 -1 -1 -1 -1 16.8
-1 1 -1 -1 -1 29.3
1 1 -1 -1 1 24.1
-1 -1 1 -1 -1 27.5
1 -1 1 -1 1 11.4
-1 1 1 -1 1 23.9
1 1 1 -1 -1 18.8
-1 -1 -1 1 -1 42.5
68
A B C D E Alcohol_obtenido
1 -1 -1 1 1 21.8
-1 1 -1 1 1 79.9
1 1 -1 1 -1 20.0
-1 -1 1 1 1 47.9
1 -1 1 1 -1 27.1
-1 1 1 1 -1 85.2
1 1 1 1 1 25.4
## $ Alcohol_obtenido: num 32.9 16.8 29.3 24.1 27.5 11.4 23.9 18.8 42.5 21.8 ...
attach(datos)
head(datos,n=16L)
2. Verificar cuales son los efectos activos. Para este paso, se requerirá obtener la gráfica
de Pareto y la de Daniel, estas grráficas darán evidencia de cuales son los efectos relevantes del
experimento, con base en el Principio de Escasez. Para obtenerlas debemos correr el siguiente
código:
library(FrF2)
experimento=FrF2(nruns = 16, nfactors = 5, [Link] = list(A=c(-1,1),B=c(-1,1),C=c(-
1,1),D=c(-1,1),E=c(-1,1)),generators = "ABCD",replications = 1,randomize = FALSE)
experimento_respuesta=[Link](design = experimento,response = Alcohol_obtenido)
halfnormal(experimento_respuesta, xlab = "Efectos activos")
FIGURA 60
En esta gráfica se puede observar que los efectos activos en el diseño experimental son el
efecto del factor A, el del factor B, el del factor D, y las siguientes interacciones dobles: AD, AB,
BD, CD, CE. Para confirmar la información que arroja la tabla, se verifica el gráfico de Daniel,
mismo que se despoliega utilizando el siguiente código:
FIGURA 61
En esta grafica puede confirmarse la información que se obtuvo del análisis anterior, por
lo que se concluye que los efectos activos son: los efectos principales de los factores A, B y D y
las interacciones dobles AD,CE, AB,CD, BD. Con esto pueden comprobarse también
el Principio de Jerarquía y el Principio de Herencia, dado que, es notorio que sólo están
activos algunos efectos principales y algunas interacciones dobles, situación que fue planteada en
el principio de jerarquí; y en el caso de las interaaciones dobles, es notorio que las interaaciones
que están activas tienen por lo menos un factor activo en los principales.
Ahora procedermos a revisar la gráfica de efectos principales, para poder verificar cuáles
provocan cambios en el contenido de alcohol isoamílico obtenido, utilizando el siguiente
comando:
efectos_principales=MEPlot(experimento_respuesta)
71
FIGURA 62
head(efectos_principales)
A B C D E
De la gráfica enterior, es posible deducir que los efectos activos que generan incremento
en el contenido de alcohol isoamílico obtenido son el B y el D, mientras que los cambios en los
niveles del factor A provocan un decremento. En el caso del factor A, un cambio de nivel mínimo
a máximo provoca un decremento de 16.5374 mg/L, mientras que en el caso de del factor B, se
genera un incremento de de 9.8375 mg/L, en el caso del factor C, es despreciable el cambio en la
cantidad de alcohol obtenido, sin embargo en el caso del factor D, se tiene un incremento de
20.6375 mg/L al cambiar del nivel mínimo al máximo de dicho factor, para el caso del factor E,
72
también es despreciable el cambio ocurrido por efecto del cambio en los niveles del factor.
Ahora procederemos a analizar las interacciones, mediante la gráfica correspondiente:
grafica_interacciones=IAPlot(experimento_respuesta)
FIGURA 63
head(grafica_interacciones)
73
A:B A:C A:D A:E B:C B:D B:E C:D C:E D:E
-:- 37.700 46.150 28.400 46.125 28.500 22.150 28.475 25.775 27.150 23.100
+:- 19.275 20.675 17.775 20.675 38.325 24.025 38.325 20.400 39.650 43.700
-:+ 54.575 46.125 63.875 46.150 28.475 34.825 28.500 41.050 39.675 23.075
+:+ 22.075 20.675 23.575 20.675 38.325 52.625 38.325 46.400 27.150 43.750
De la gráfica anterior, podemos observar que existen interacciones fuertes entre los
factores A y B, B y D, C y E, A y D y C y D, para probar si las interacciones son significativas,
procederemos a realizar la tabla ANOVA del experimento, pero considerando unidamente hasta
las interacciones dobles, esto se realiza mediante el siguiente código:
modelo_a_b=lm(Alcohol_obtenido~(A*B),data = datos)
summary(modelo_a_b)
##
## Call:
## [Link](formula = Alcohol_obtenido ~ (A * B), data = datos)
##
## Residuals:
## Min 1Q Median 3Q Max
## -30.675 -5.569 -0.025 5.556 30.625
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 33.406 4.318 7.737 5.28e-06 ***
## A -12.731 4.318 -2.949 0.0122 *
## B 4.919 4.318 1.139 0.2768
## A:B -3.519 4.318 -0.815 0.4310
## ---
74
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 17.27 on 12 degrees of freedom
## Multiple R-squared: 0.4704, Adjusted R-squared: 0.338
## F-statistic: 3.552 on 3 and 12 DF, p-value: 0.04775
anova_a_b=aov(modelo_a_b)
summary(anova_a_b)
## Df Sum Sq Mean Sq F value Pr(>F)
## A 1 2593 2593.4 8.695 0.0122 *
## B 1 387 387.1 1.298 0.2768
## A:B 1 198 198.1 0.664 0.4310
## Residuals 12 3579 298.3
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
modelo_b_d=lm(Alcohol_obtenido~(B*D),data = datos)
summary(modelo_b_d)
##
## Call:
## [Link](formula = Alcohol_obtenido ~ (B * D), data = datos)
##
## Residuals:
## Min 1Q Median 3Q Max
## -32.625 -8.481 -0.025 8.444 32.575
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 33.406 4.794 6.968 1.5e-05 ***
## B 4.919 4.794 1.026 0.3252
## D 10.319 4.794 2.152 0.0524 .
## B:D 3.981 4.794 0.830 0.4225
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
75
##
## Residual standard error: 19.18 on 12 degrees of freedom
## Multiple R-squared: 0.3469, Adjusted R-squared: 0.1836
## F-statistic: 2.125 on 3 and 12 DF, p-value: 0.1504
anova_b_d=aov(modelo_b_d)
summary(anova_b_d)
## Df Sum Sq Mean Sq F value Pr(>F)
## B 1 387 387.1 1.053 0.3252
## D 1 1704 1703.6 4.632 0.0524 .
## B:D 1 254 253.6 0.690 0.4225
## Residuals 12 4413 367.8
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
modelo_c_e=lm(Alcohol_obtenido~(C*E),data = datos)
summary(modelo_c_e)
##
## Call:
## [Link](formula = Alcohol_obtenido ~ (C * E), data = datos)
##
## Residuals:
## Min 1Q Median 3Q Max
## -20.850 -13.306 -6.963 5.450 45.550
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 33.40625 5.65107 5.911 7.12e-05 ***
## C -0.00625 5.65107 -0.001 0.999
## E 0.00625 5.65107 0.001 0.999
## C:E -6.25625 5.65107 -1.107 0.290
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
76
anova_a_d=aov(modelo_a_d)
summary(anova_a_d)
## Df Sum Sq Mean Sq F value Pr(>F)
## A 1 2593.4 2593.4 19.695 0.00081 ***
## D 1 1703.6 1703.6 12.938 0.00367 **
## A:D 1 880.6 880.6 6.688 0.02383 *
## Residuals 12 1580.1 131.7
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
modelo_c_d=lm(Alcohol_obtenido~(C*D),data = datos)
summary(modelo_c_d)
##
## Call:
## [Link](formula = Alcohol_obtenido ~ (C * D), data = datos)
##
## Residuals:
## Min 1Q Median 3Q Max
## -21.050 -11.562 -0.075 4.419 38.850
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 33.40625 5.07190 6.587 2.59e-05 ***
## C -0.00625 5.07190 -0.001 0.9990
## D 10.31875 5.07190 2.034 0.0646 .
## C:D 2.68125 5.07190 0.529 0.6067
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 20.29 on 12 degrees of freedom
## Multiple R-squared: 0.2691, Adjusted R-squared: 0.0864
## F-statistic: 1.473 on 3 and 12 DF, p-value: 0.2714
anova_c_d=aov(modelo_c_d)
78
summary(anova_c_d)
## Df Sum Sq Mean Sq F value Pr(>F)
## C 1 0 0.0 0.000 0.9990
## D 1 1704 1703.6 4.139 0.0646 .
## C:D 1 115 115.0 0.279 0.6067
## Residuals 12 4939 411.6
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Necesitarás los paquetes mixexp y rsm. Instálalos y cárgalos usando el siguiente código:
[Link]("mixexp")
[Link]("rsm")
library(mixexp)
library(rsm)
Define los componentes de tu mezcla y las restricciones. Por ejemplo, si tienes tres
componentes A, B y C con restricciones de 0 a 1 para cada uno, y la suma total debe ser igual a
1:
Utiliza la función SCD del paquete mixexp para crear el diseño simple:
Usa la función cd2sd para convertir las coordenadas de diseño a proporciones de mezcla:
Una vez ajustado el modelo, puedes analizarlo para interpretar los efectos de los
componentes:
Paso 9: Optimización
Los diseños Plackett-Burman son diseños experimentales presentados en 1946 por Robin
L. Plackett y J. P. Burman mientras trabajaban en el Ministerio de Suministros británico.
(PLACKETT y BURMAN 1946). Cuando el número de factores es bastante grande, la
restricción de que el número de experimentos debe ser igual a una potencia de 2 puede ser
bastante restrictiva. Por ejemplo, un diseño factorial de 10 factores y 2 niveles requeriría 210
experimentos. Con el diseño de Plackett-Burman el número de experimentos requeridos es el
primer múltiplo de 4 mayor que el número de factores. ¡En este caso, por lo tanto, sólo tendrías
12 experimentos!. El número de factores totales será N−1, con norte el número de experimentos.
Los factores adicionales se consideran variables ficticias, útiles para estimar la importancia de
los factores reales. (Doehlert, 2020)
82
FIGURA 64
Factores
FIGURA 65
Factores Independientes
83
Primero, instala y carga los paquetes [Link] y FrF2 (que contiene funciones para
diseños factoriales y de cribado, incluyendo Plackett-Burman).
[Link]("[Link]")
[Link]("FrF2")
library([Link])
library(FrF2)
Después de realizar el experimento, debes asignar las respuestas obtenidas a las corridas.
Supongamos que tienes las siguientes respuestas:
Analiza los resultados del modelo para interpretar los efectos de los factores:
Puedes usar gráficos para visualizar los efectos principales de los factores:
# Efectos principales
library(ggplot2)
effects <- coef(model)[-1] # Excluir el intercepto
effects_df <- [Link](Factor = names(effects), Effect = effects)
ggplot(effects_df, aes(x = reorder(Factor, Effect), y = Effect)) +
geom_bar(stat = "identity") +
coord_flip() +
labs(title = "Efectos Principales de los Factores",
x = "Factor",
y = "Efecto")
85
EJEMPLO
Suponga que ha medido una respuesta experimental para todos los experimentos.
y = c(51, 31, 44, 23, 80, 45, 31, 55, 23, 26, 29, 28)
plackdf2 = plackdf
for (m in 1:ncol(plackdf)) {
FIGURA 66
Y=b0+b1x1+b2x2+b3x3+b4x4+b5x5+b6x6+b7x7+b8x8+b9x9+b10x10+b11x11
##
## Call:
## lm(formula = Y ~ X1 + X2 + X3 + X4 + X5 + X6 + X7 + X8 + X9 +
##
## Residuals:
##
## Coefficients:
##
Necesitamos otro enfoque para comprender cuáles de ellos son realmente importantes.
FIGURA 67
Interpretacion
En este caso, sólo los factores X6 y X7 son relevantes y pueden usarse más adelante para
un diseño experimental adicional.
89
Diseño robusto experimento en el que se consideran actores de ruido, con respecto a los
cuales se quiere logra h proceso o producto robusto
EJEMPLO EN RSTUDIO
Usando el paquete *qualityTools" se pueden generar los diseños ortogonales más usados,
con los comandos “taguchiChoose” y “taguchiDesign”, por ejemplo
taguchiChoose(factors1=3,level1=4)
## 3 factors on 4 levels and 0 factors on 0 levels with 0 desired interactions
to be estimated
##
## Possible Designs:
##
## L16_4
##
## Use taguchiDesign("L16_4") or different to create a taguchi design object
taguchiDesign("L16_4",randomize=FALSE)
## StandOrder RunOrder Replicate A B C D E y
## 1 1 1 1 1 1 1 1 1 NA
## 2 2 2 1 1 2 2 2 2 NA
## 3 3 3 1 1 3 3 3 3 NA
## 4 4 4 1 1 4 4 4 4 NA
## 5 5 5 1 2 1 2 3 4 NA
## 6 6 6 1 2 2 1 4 3 NA
## 7 7 7 1 2 3 4 1 2 NA
## 8 8 8 1 2 4 3 2 1 NA
## 9 9 9 1 3 1 3 4 2 NA
## 10 10 10 1 3 2 4 3 1 NA
## 11 11 11 1 3 3 1 2 4 NA
## 12 12 12 1 3 4 2 1 3 NA
## 13 13 13 1 4 1 4 2 3 NA
91
## 14 14 14 1 4 2 3 1 4 NA
## 15 15 15 1 4 3 2 4 1 NA
## 16 16 16 1 4 4 1 3 2 NA
Nótese que el argumento randomize se colocó como “FALSE” (Falso), pues se desea
revisar el diseño en el orden estándar (no en una propuesta de orden aleatorizado) puesto que
nuestros datos vienen identificados con el “Trial” (Ensayo).
Bentonita 0 0.5 1 3
Fly Ash 10 20 30 40
Silica Fumed 0 5 10 20
En el próximo código se usa el diseño propuesto, asignando como respuesta los valores
guardados en el objeto [Link], que se guarda en otro objeto llamado tAd.
## 8 8 8 1 2 4 3 2 1 21.09 25.38
## 9 9 9 1 3 1 3 4 2 17.00 22.17
## 10 10 10 1 3 2 4 3 1 15.45 22.97
## 11 11 11 1 3 3 1 2 4 20.42 23.96
## 12 12 12 1 3 4 2 1 3 21.76 25.14
## 13 13 13 1 4 1 4 2 3 13.98 21.58
## 14 14 14 1 4 2 3 1 4 17.30 23.52
## 15 15 15 1 4 3 2 4 1 18.75 23.42
## 16 16 16 1 4 4 1 3 2 21.75 24.86
effectPlot(tAd, response="t_inicial",classic=TRUE)
XVII.
effectPlot(tAd,response="t_final",classic=TRUE)
93
XVIII.
Interpretacion:
- Ambos gráficos muestran cómo los diferentes factores y sus niveles afectan a las
variables respuesta ( t_initial ) y \( t_final ).
- Las líneas en cada gráfico permiten visualizar si hay una tendencia ascendente,
descendente, o fluctuante de la variable respuesta para cada nivel de los factores.
#[Link]<-tAd
#bas<-
list(A=c(0,0.5,1,3),B=c(10,20,30,40),C=c(0,5,10,20),D=c(1,2,3,4),E=c(1,2,3,4)
)
#values([Link])<-bas
#values([Link])
[Link]<-[Link](tAd)
[Link]<-[Link][,-c(1:3)]
[Link]$A=[Link]([Link](factor([Link]$A,labels=[Link](c(0,0.5
,1,3)))))
94
[Link]$B=[Link]([Link](factor([Link]$B,labels=[Link](c(10,20
,30,40)))))
[Link]$C=[Link]([Link](factor([Link]$C,labels=[Link](c(0,5,1
0,20)))))
[Link]([Link], ~ A + B + C, image=TRUE)
XIX.
96
aov(tIn.fit1)
## Call:
## aov(formula = tIn.fit1)
## Terms:
## [Link](A) [Link](B) [Link](C) Residuals
## Sum of Squares 10.59115 23.93985 43.36545 3.19585
## Deg. of Freedom 3 3 3 6
##
## Residual standard error: 0.729823
## Estimated effects may be unbalanced
[Link]<-lm(t_final~ A + B + C , data = [Link])
summary([Link])
##
## Call:
## lm(formula = t_final ~ A + B + C, data = [Link])
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.07826 -0.27437 -0.05747 0.20669 1.50174
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 23.22367 0.56528 41.084 2.8e-14 ***
## A -0.49482 0.17151 -2.885 0.01370 *
## B 0.06810 0.01747 3.898 0.00212 **
## C -0.03180 0.02641 -1.204 0.25180
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## Residual standard error: 0.7813 on 12 degrees of freedom
## Multiple R-squared: 0.6754, Adjusted R-squared: 0.5942
## F-statistic: 8.323 on 3 and 12 DF, p-value: 0.002913
tFin.fit1<-lm(t_final~[Link](A)+[Link](B)+[Link](C),data=[Link])
[Link]([Link],~A+B+C, image= TRUE)
97
98
XX.
99
Interpretación general
Primer gráfico: Muestra cómo la variable de respuesta cambia con A y B cuando C está
fijado en 8.75. Podemos observar tendencias o patrones en la respuesta, como si aumenta o
disminuye.
Segundo gráfico: Muestra cómo la variable de respuesta cambia con A y C cuando B está
fijado en 25. De nuevo, se pueden observar patrones en la respuesta.
aov(tFin.fit1)
## Call:
## aov(formula = tFin.fit1)
##
## Terms:
## [Link](A) [Link](B) [Link](C) Residuals
## Sum of Squares 7.052925 9.445125 2.217675 3.849650
## Deg. of Freedom 3 3 3 6
##
## Residual standard error: 0.8010046
## Estimated effects may be unbalanced
100
XXI. CONCLUSION
XXII. Bibliografía
Ortega, C. (2020). Estadística descriptiva: Qué es, objetivo, tipos y ejemplos. Obtenido
de [Link]
%20estad%C3%ADstica%20descriptiva%20se,o%20de%20toda%20la%20poblaci%C3%B3n.
102
Rodríguez, M. D. (30 de Junio de 2023). Design of Experiments with Mixtures and their
Analysis with R. Obtenido de [Link]
mixtures-and-their-analysis-with-r/