##Se realizó un muestreo aleatorio simple para garantizar la participaciónde cualqier estudiante de la universidad.
library(gtsummary)
library(knitr)
library(DT)
library(gt)
## Cargar archivo Excel
students <- readxl::read_excel("Formulario_cafeterias_en_Universidad_Pontificia_Javeriana_-_all_versions_-_labels_-_2023-10-31-15-57-57.xlsx")
## Mostrar la tabla en la página web
datatable(students)
| Recomendacion_Cafeterias | Clasificacion |
|---|---|
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| No | No recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| No | No recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| No | No recomienda |
| Si | Recomienda |
| Si | Recomienda |
| No | No recomienda |
| Si | Recomienda |
| No | No recomienda |
| No | No recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| No | No recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
| Si | Recomienda |
## Calificacion
## Length:50
## Class :character
## Mode :character
## Consideracion
## Length:49
## Class :character
## Mode :character
## Calificacion
## Min. :2.000
## 1st Qu.:3.000
## Median :3.000
## Mean :3.551
## 3rd Qu.:4.000
## Max. :5.000