Preguntas de la base de datos: P1: ¿La dificultad de Matemáticas/Cálculo es el principal obstáculo para continuar estudios? P2: ¿La falta de preparación pedagógica de docentes afecta tu motivación? P3: ¿Problemas económicos son la causa principal de posible deserción? #Base de datos

datos <- read_excel("base.xlsx")
datos

Datos Estadisticos

summary(datos)
##        ID           Semestre           P1          P2              P3       
##  Min.   : 1.00   Min.   :1.000   Min.   :2   Min.   :2.000   Min.   :2.000  
##  1st Qu.: 8.25   1st Qu.:2.000   1st Qu.:3   1st Qu.:3.000   1st Qu.:3.000  
##  Median :15.50   Median :3.000   Median :4   Median :4.000   Median :4.000  
##  Mean   :15.50   Mean   :3.067   Mean   :4   Mean   :3.867   Mean   :3.967  
##  3rd Qu.:22.75   3rd Qu.:4.000   3rd Qu.:5   3rd Qu.:5.000   3rd Qu.:5.000  
##  Max.   :30.00   Max.   :6.000   Max.   :5   Max.   :5.000   Max.   :5.000

Analisis de Correlacion:

# Calcular correlación de Spearman
correlacion <- cor(datos$P1, 
                   datos$P2, 
                   method = "spearman")
cat("Coeficiente de correlación de Spearman:", correlacion)
## Coeficiente de correlación de Spearman: 0.2239445