# Datos de ejemplo
x <- c(157,147,149,165,183,151,149,157,149,147,168,154,159,149,140) # Datos para el eje x
y <- c(48,53,48,66,59,53,54,62,69,57,59,53,55,53,55) # Datos para el eje y

# Crear el diagrama de dispersión
plot(x, y, main = "Scatter plot", xlab = "Altura (m)", ylab = "Peso (kg)", pch = 16, col = "red")
grid(nx = length(x), ny = length(y), lty = 2, col = "gray", lwd = 0.5)

# Ajustar la línea de regresión
regression <- lm(y ~ x)

# Obtener el coeficiente de determinación (R-cuadrado)
r_squared <- summary(regression)$r.squared

# Obtener el coeficiente de correlación (R)
correlation <- cor(x, y)

# Obtener la ecuación de la línea de regresión
equation <- paste("y =", round(regression$coefficients[1], 2), "+", round(regression$coefficients[2], 2), "* x")
abline(regression, col = "blue")

# Imprimir la ecuación
cat("Coeficiente de determinación:",r_squared,"\n")
cat("Porcentaje de confiabilidad:",r_squared*100,"\n")
cat("Coeficiente de correlación:",correlation,"\n")
cat("Ecuación lineal:",equation)