Peso_kg <- as.numeric(readline("Ingrese por favor su peso en Kg: "))

## Ingrese por favor su peso en Kg:

## Por favor ingrese su peso en Kg:
estatura_metros <- as.numeric(readline("Ingrese por favor su estatura en metros: "))

## Ingrese por favor su estatura en metros:

## Por favor ingrese su estatura en metros:
imc <- (Peso_kg/(estatura_metros^2))
cat("Tu indice de masa coorporal es <imc> :",round(imc,2))

## Tu indice de masa coorporal es <imc> : NA