Practica 1

#Practica 1
#Objetivo. 
#Asignar valores a variables y realizar condicionales y ciclos
cat("\014")  

nombre = "Osbaldo"
apellidoPaterno = "Aragon"
apellidoMaterno = "Banderas"
fechaNac = "26/10/1989"
sueldoAprox <- 500.00

cat ("Nombre:", nombre,"\nApellido Paterno:", apellidoPaterno,"\nApellido Materno:",apellidoMaterno,"\nFecha de Naciemiento",fechaNac,"\nSueldo:",sueldoAprox)

## Nombre: Osbaldo 
## Apellido Paterno: Aragon 
## Apellido Materno: Banderas 
## Fecha de Naciemiento 26/10/1989 
## Sueldo: 500

if(is.character(nombre)==TRUE)
  print("El nombre es caracter")

## [1] "El nombre es caracter"

if(is.double(sueldoAprox)==TRUE)
  print("La variable SueldoAprox es doble")

## [1] "La variable SueldoAprox es doble"

if(nchar(nombre)>nchar(apellidoPaterno) && nchar(nombre)>nchar(apellidoMaterno))
  cat("EL nombre tiene mas caracteres:", nchar(nombre)," en total")

if(nchar(apellidoMaterno)>nchar(apellidoPaterno) & nchar(nombre)<nchar(apellidoMaterno))
  cat("EL apellido materno tiene mas caracteres:", nchar(apellidoMaterno)," en total")

## EL apellido materno tiene mas caracteres: 8  en total

if(nchar(nombre)<nchar(apellidoPaterno) & nchar(apellidoPaterno)>nchar(apellidoMaterno))
  cat("EL apellido paterno tiene mas caracteres:", nchar(apellidoPaterno)," en total")

if(sueldoAprox <= 1000)
  print("El sueldo es Bajo")

## [1] "El sueldo es Bajo"

if(sueldoAprox > 1000 & sueldoAprox < 3000)
  print("El sueldo es Medio")

if(sueldoAprox >=3000)
  print("El sueldo es Alto")