nombresyapellidos <- c("Luis Martínez", " Isaac López", "Paola Vergara", "Keiner Mendoza",
"Ariadna Martínez", "Gerson Yanez", "Edilxon Contreras", "Lysmari Chivico",
"Juleynis González", "Sebastián López", "Marlon Barrios", "Julieth Orozco",
"Yuliana Acevedo", "Yubalis López", "Steffanny Flórez", "Gabriela Jiménez", "Laura Hernández",
"Luisana Doria", "Adrián Cuesta", "Andrés Olmos", "Felix Galeano", "Alex Zuluaga", "Tomás Ozuna", "María Carmona", "Sara Batanero", "Keyndri Velaides", "Keyla Garrido", "Rafael Ortega", "Abraham Magallanes")
edad <- c(19, 19, 20, 19, 19, 20, 20, 21, 19, 19, 19, 20, 20, 22, 19, 19, 20, 19, 23, 19,20, 21, 20, 20, 19, 19, 20, 20, 20)
lugar <- c("Sincelejo", "Sincelejo", "Sincelejo", "Toluviejo", "Corozal", "Sincelejo",
"Sampués", "Sincelejo", "Sincelejo", "San Marcos", "Sincé", "Sincelejo", "Sincelejo",
"Caimito", "Sincelejo", "Maicao", "Sincelejo", "San Pedro", "Sincelejo", "Corozal", "Sincelejo",
"Colosó", "Sincelejo", "Pereira", "Bogotá", "Magangué", "Varsovia", "Corozal", "Palmito")
estatura <- c(1.57, 1.80, 1.65, 1.70, 1.48, 1.80, 1.68, 1.54, 1.66, 1.76, 1.71, 1.73, 1.73, 1.58,
1.65, 1.63, 1.53, 1.68, 1.68, 1.80, 1.85, 1.70, 1.77, 1.60, 1.50, 1.53, 1.45, 1.77, 1.74)
peso_kg <- c(59, 83, 57, 60, 45, 60, 58, 51, 48, 60, 58, 55, 65, 46, 48, 60, 63, 60, 54, 75, 80, 78, 82, 57, 49, 52, 45, 80, 69)
dinero_diario <- c(30.000, 30.0000, 20.000, 35.000, 15.000, 20.000, 25.000, 20.000, 20.000, 10.000, 10.000, 6.000, 10.000, 0, 15.000, 25.000, 25.000, 20.000, 20.000, 10.000, 7.000, 0, 0, 20.000, 0, 10.000, 5.000, 1.500, 15.000)
patientdata <- data.frame(nombresyapellidos, edad, lugar, estatura, peso_kg, dinero_diario)
patientdata