ejercicio1

#practica 1 asignar variables
nombre <- "Oscar Omar"
apellidoPaterno <- "Graciano"
apellidoMaterno <- "Simental"
fechaNac <- "11-01-1987"
sueldo <- 20000.35

cat(nombre, apellidoPaterno, apellidoMaterno, fechaNac, sueldo)

## Oscar Omar Graciano Simental 11-01-1987 20000.35

if(is.character(nombre)){
  print("la variable nombre es caracter");
}else{
  print("la variable no es un caracter");
}

## [1] "la variable nombre es caracter"

if(is.double(sueldo)){
  paste("el sueldo es double",sueldo);
}else {
  paste("el sueldo no es double",sueldo);
}

## [1] "el sueldo es double 20000.35"

if(nchar(nombre) > nchar(apellidoPaterno) && nchar(nombre) > nchar(apellidoMaterno)) {
  print("el nombre es el mayor");
}else if(nchar(apellidoMaterno) > nchar(apellidoPaterno)) {
  print("el apellido materno es mayor");
}else {
  print("el apellido paterno es el mayor")
}

## [1] "el nombre es el mayor"

if(sueldo > 1 & sueldo < 1000){
  print("sueldo bajo");
} else if(sueldo > 10001 & sueldo < 30000) {
  print("el sueldo es medio");
}else{
  print("el suledo es mayor");
}

## [1] "el sueldo es medio"