codigo EJ

install.packages("readxl")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.3'
## (as 'lib' is unspecified)

cat("El programa trabaja con datos a condiciones estándar, ¿desea continuar así? (Si/No): ")

## El programa trabaja con datos a condiciones estándar, ¿desea continuar así? (Si/No):

respuesta <- tolower(readline())

if (respuesta == "si") {
  # Seguir con el proceso normal
  cat("Continuaremos con condiciones estándar.\n")

} else if (respuesta == "no") {
  # El usuario no quiere trabajar con condiciones estándar, así que se le pregunta sobre las unidades.
  cat("Seleccione la unidad para la temperatura (K/C/F): ")
  unidad_temp <- tolower(readline())
  cat("Seleccione la unidad para la presión (Pa/atm/mmHg/bar): ")
  unidad_presion <- tolower(readline())

  # Realizar conversiones si es necesario
  if (unidad_temp == "c") {
    cat("Ingrese la temperatura en grados Celsius: ")
    temp_celsius <- as.numeric(readline())
    # Realizar la conversión a Kelvin
    temp_kelvin <- temp_celsius + 273.15
  } else if (unidad_temp == "f") {
    cat("Ingrese la temperatura en grados Fahrenheit: ")
    temp_fahrenheit <- as.numeric(readline())
    # Realizar la conversión a Kelvin
    temp_kelvin <- (temp_fahrenheit - 32) * 5/9 + 273.15
  } else {
    cat("Ingrese la temperatura en Kelvin: ")
    temp_kelvin <- as.numeric(readline())
  }

  if (unidad_presion == "atm") {
    cat("Ingrese la presión en atmósferas: ")
    presion_atm <- as.numeric(readline())
    # Realizar conversiones si es necesario (por ejemplo, a Pa, mmHg, o bar)
  } else if (unidad_presion == "pa") {
    cat("Ingrese la presión en pascales: ")
    presion_pa <- as.numeric(readline())
    # Realizar conversiones si es necesario (por ejemplo, a atm, mmHg, o bar)
  } else if (unidad_presion == "mmhg") {
    cat("Ingrese la presión en milímetros de mercurio: ")
    presion_mmhg <- as.numeric(readline())
    # Realizar conversiones si es necesario (por ejemplo, a atm, Pa, o bar)
  } else {
    cat("Ingrese la presión en bares: ")
    presion_bar <- as.numeric(readline())
    # Realizar conversiones si es necesario (por ejemplo, a atm, Pa, o mmHg)
  }

  # Aquí puedes incluir el resto de tu código para trabajar con las unidades seleccionadas.
} else {
  cat("Respuesta no válida. Por favor, responda 'Si' o 'No'.")
}

## Respuesta no válida. Por favor, responda 'Si' o 'No'.

# Este es un chunk para leer datos desde un archivo Excel
# Supongamos que los datos de entalpía, entropía, energía libre de Gibbs, a, b y c se encuentran en la hoja "Datos" del archivo "datos_geoquimicos.xlsx"
archivo_excel <- "datos_geoquimicos.xlsx"
hoja_excel <- "Datos"

if (file.exists(archivo_excel)) {
  datos <- read_excel(archivo_excel, sheet = hoja_excel)
  
  # Asumiendo que las columnas en Excel tienen nombres como "Entalpia", "Entropia", "Energia_Gibbs", "A", "B", "C"
  # Puedes acceder a los datos así:
  entalpia <- datos$Entalpia
  entropia <- datos$Entropia
  energia_gibbs <- datos$Energia_Gibbs
  a <- datos$A
  b <- datos$B
  c <- datos$C
} else {
  cat("El archivo Excel no existe en la ubicación especificada.\n")
}

## El archivo Excel no existe en la ubicación especificada.