🎯 Analizar la relación lineal entre dos variables cuantitativas mediante el ajuste de un modelo de regresión lineal simple, interpretando sus parámetros y aplicándolo en la estimación y predicción de valores a partir de datos empíricos.
📘 Sea \(x\) una variable independiente e \(y\) una variable dependiente. La regresión lineal simple es un modelo matemático que describe la relación entre ambas variables mediante la ecuación:
\[ y = \beta_0 + \beta_1 x + \varepsilon \]
donde \(\beta_0\) es la ordenada al origen (intercepto), \(\beta_1\) es el coeficiente de regresión o pendiente, y \(\varepsilon\) representa el término de error aleatorio. Este modelo permite estimar el valor de \(y\) a partir de un valor dado de \(x\), bajo el supuesto de que la relación entre ambas variables es lineal.
📐 El ajuste de un modelo de regresión lineal en RStudio se realiza mediante la siguiente instrucción, que permite estimar los parámetros del modelo a partir de datos observados:
# Variable dependiente.
x <- c(x_1,x_2,x_3,..,x_n)
# Variable independiente.
y <- c(y_1,y_2,y_3,...,y_n)
# Ajuste del modelo de regresión lineal.
modelo <- lm(y ~ x)
📐 La representación gráfica del modelo de regresión lineal en RStudio se realiza mediante el siguiente conjunto de instrucciones, que permite visualizar los datos y la recta ajustada al modelo:
# Gráfico de dispersión.
plot(x,
y,
main = "Título",
xlab = "Nombre variable x",
ylab = "Nombre variable y",
pch = 19)
# Recta ajustaad al modelo de regresión.
abline(modelo, col = "blue", lwd = 2)
modelo <- lm(y ~ x)
🔍 E1. Analizar la relación entre el tiempo de entrenamiento y el rendimiento en una prueba, a partir de los datos entregados. Ajustar un modelo de regresión lineal simple, determinar su ecuación e ilustrar gráficamente el ajuste.
\(i\) | \(x_i\) | \(y_i\) |
---|---|---|
1 | 1 | 4 |
2 | 2 | 6 |
3 | 3 | 9 |
4 | 4 | 12 |
5 | 5 | 13 |
6 | 6 | 19 |
7 | 7 | 21 |
8 | 8 | 22 |
9 | 9 | 23 |
10 | 10 | 24 |
(1) Análisis en R.
# Variable dependiente.
x <- c(1,2,3,4,5,6,7,8,9,10)
# Variable independiente.
y <- c(4,6,9,12,13,19,21,22,23,24)
# Ajuste del modelo de regresión lineal.
Modelo <- lm(y ~ x)
\(\Rightarrow\) \(\beta_0 = 2{,067}\) y \(\beta_1=2.406\)
(2) Relación lineal.
\(\Rightarrow\) \(y=2.067+2.406x\)
(3) Gráfico de dispersión.
# Definición de datos
x <- c(1,2,3,4,5,6,7,8,9,10)
y <- c(4,6,9,12,13,19,21,22,23,24)
# Ajuste del modelo
modelo <- lm(y ~ x)
# Gráfico de dispersión
plot(x,
y,
main = "Regresión lineal simple",
xlab = "Variable x",
ylab = "Variable y",
pch = 19)
# Recta ajustada al modelo
abline(modelo, col = "blue", lwd = 2)
🔍 E2. Analizar la relación entre la dosis administrada de un medicamento (en miligramos) y la reducción de temperatura corporal (en °C) observada en pacientes. A partir de los datos entregados, ajustar un modelo de regresión lineal simple, determinar la ecuación de la recta estimada e ilustrar gráficamente el ajuste.
\(i\) | \(x_i\) (mg) | \(y_i\) (°C) |
---|---|---|
1 | 50 | 0.4 |
2 | 73 | 1.4 |
3 | 97 | 1.5 |
4 | 121 | 1.4 |
5 | 144 | 2.0 |
6 | 168 | 2.1 |
7 | 192 | 3.0 |
8 | 215 | 2.5 |
9 | 239 | 3.3 |
10 | 263 | 3.5 |
11 | 286 | 3.7 |
12 | 310 | 4.3 |
13 | 334 | 4.4 |
14 | 357 | 4.4 |
15 | 381 | 5.4 |
16 | 405 | 5.5 |
17 | 428 | 5.4 |
18 | 452 | 6.6 |
19 | 476 | 6.5 |
20 | 500 | 6.9 |
(1) Análisis en R.
# Variable independiente: Dosis del medicamento (mg)
x <- c(50, 73, 97, 121, 144, 168, 192, 215, 239, 263,
286, 310, 334, 357, 381, 405, 428, 452, 476, 500)
# Variable dependiente: Reducción de temperatura (°C)
y <- c(0.4, 1.4, 1.5, 1.4, 2.0, 2.1, 3.0, 2.5, 3.3, 3.5,
3.7, 4.3, 4.4, 4.4, 5.4, 5.5, 5.4, 6.6, 6.5, 6.9)
# Ajuste del modelo de regresión lineal
modelo <- lm(y ~ x)
\(\Rightarrow\) \(\beta_0 = -0{,}03390\) y \(\beta_1=0{,}01364\)
(2) Relación lineal.
\(\Rightarrow\) \(y=-0{,}03390+0{,}01364x\)
(3) Gráfico de dispersión.
# Definición de datos
# Variable independiente: Dosis del medicamento (mg)
x <- c(50, 73, 97, 121, 144, 168, 192, 215, 239, 263,
286, 310, 334, 357, 381, 405, 428, 452, 476, 500)
# Variable dependiente: Reducción de temperatura (°C)
y <- c(0.4, 1.4, 1.5, 1.4, 2.0, 2.1, 3.0, 2.5, 3.3, 3.5,
3.7, 4.3, 4.4, 4.4, 5.4, 5.5, 5.4, 6.6, 6.5, 6.9)
# Ajuste del modelo
modelo <- lm(y ~ x)
# Gráfico de dispersión
plot(x,
y,
main = "Regresión lineal simple",
xlab = "Variable x",
ylab = "Variable y",
pch = 19)
# Recta ajustada al modelo
abline(modelo, col = "blue", lwd = 2)