Sueldos

#Practica 1 ##Manejo de variables

nombre<-"Sergio"
apellidoPaterno <-"Valdez"
apellidoMaterno <-"Rodela."
fechaNac <-"31/jul/88"
sueldoAprox <- 10.000

cat(nombre)

## Sergio

cat(apellidoPaterno)

## Valdez

cat(apellidoMaterno)

## Rodela.

cat(fechaNac)

## 31/jul/88

cat(sueldoAprox)

## 10

is.character(nombre)

## [1] TRUE

is.double(sueldoAprox)

## [1] TRUE

cnom<-nchar(nombre)
capp<-nchar(apellidoPaterno)
capm<-nchar(apellidoMaterno)
cat(capp)

## 6

if(cnom >= capp & cnom >= capm)
{
  cat("El nombre tiene mas letras");
}else if(cnom <= capp & cnom <= capm)
{
  cat("El apellido paterno tiene mas letras");
}else if(cnom <= capm & cnom <= capm)
{
  cat("El apellido materno tiene mas letras");
}

## El apellido paterno tiene mas letras

if(sueldoAprox >=1 & sueldoAprox<=1000)
  cat("BAJO")

## BAJO

if(sueldoAprox >=1001 & sueldoAprox<=30000)
  cat("MEDIO")
if(sueldoAprox >=30000)
  cat("ALTO")