nombre <- "Juan Carlos"
aPaterno <- "Morales"
aMaterno <- "Paterno"
fechaNac <- "27-Julio-1980"
sueldo <- 1500.80

paste ("Nombre: ", nombre)

## [1] "Nombre:  Juan Carlos"

paste ("Apellido Paterno: ", aPaterno)

## [1] "Apellido Paterno:  Morales"

paste ("Apellido Materno: ", aMaterno)

## [1] "Apellido Materno:  Paterno"

paste ("Fecha de Nacimiento: ", fechaNac)

## [1] "Fecha de Nacimiento:  27-Julio-1980"

paste ("El nombre es caracter: ")

## [1] "El nombre es caracter: "

if (is.character(nombre)){
  paste("Si es caracter")
}

## [1] "Si es caracter"

paste ("El sueldo es valor de tipo doble: ")

## [1] "El sueldo es valor de tipo doble: "

if (is.double(sueldo)){
  paste("Si es de tipo doble")
}

## [1] "Si es de tipo doble"

paste("Cual del nombre, Apellido Paterno y Apellido Materno tiene mas letras: ")

## [1] "Cual del nombre, Apellido Paterno y Apellido Materno tiene mas letras: "

nom<-nchar(nombre)
apat<-nchar(aPaterno)
amat<-nchar(aMaterno)

if (nom>apat & nom>amat) {
  paste("El nombre es el que tiene mas caracteres")
} else {
  if (apat>nom & apat>amat) {
    paste("El apellido paterno es el que tiene mas caracteres")
  } else {
    paste("El apellido materno es el que tiene mas caracteres")
  }
}

## [1] "El nombre es el que tiene mas caracteres"

if (sueldo>=1 & sueldo<=100) {
  paste ("Sueldo Bajo")
}

if (sueldo>=1001 & sueldo<=30000) {
  paste ("Sueldo Bajo")
}

## [1] "Sueldo Bajo"

if (sueldo>=30001) {
  paste ("Sueldo Bajo")
}