Mini aplicación de aceptabilidad de automóviles

# Función de ejemplo simple que evalúa aceptabilidad con reglas fijas
evaluar_auto <- function(buying, maint, persons, safety) {
  if (safety == 1) return("unacc")  # Seguridad baja = inaceptable
  if (persons == 3 && safety == 3 && buying >= 3 && maint >= 3) return("vgood")
  if (persons == 2) return("unacc")
  if (buying == 4 && maint == 4 && safety >= 2) return("good")
  return("acc")
}

# Ejecutar la "predicción"
resultado <- evaluar_auto(params$buying, params$maint, params$persons, params$safety)

# Mostrar resultado
cat("✅ Resultado simulado: El auto es clasificado como:", resultado)

## ✅ Resultado simulado: El auto es clasificado como: vgood