X <- as.character(readline("Escriba F o C \n"))

## Escriba F o C

## Escriba F o C
Num1 <- as.numeric(readline("Ingrese la temperatura en grados Fahrenheit \n"))

## Ingrese la temperatura en grados Fahrenheit

## Ingrese la temperatura en grados Fahrenheit

if(X=="F")
{
  a <- ((Num1-32)/1.8)
  cat("La temperatura tranformada a grados Celsius es",a)
}

if(X=="C")
{
  b <- ((Num1*1.8)+32)
  cat("La temperatura tranformada a grados Fahrenheit es",b)
}