Actividad2

If, else if, else

Edad

edad <- function(edad){
  if( edad < 18 ){
    print("Menor de Edad")
  }else if(edad < 65 ){
    print("Mayor de Edad")
  }else{
    print("Adulto Mayor")
  }
}

edad(10)

## [1] "Menor de Edad"

edad(40)

## [1] "Mayor de Edad"

edad(70)

## [1] "Adulto Mayor"

Temperatura

grados <- function(grados){
  if( grados < 10 ){
    print("Fria")
  }else if(grados < 25 ){
    print("Templado")
  }else{
    print("Caliente")
  }
}

grados(9)

## [1] "Fria"

grados(10)

## [1] "Templado"

grados(26)

## [1] "Caliente"

For

Recorre Letras de un vector

vectorletras <- c('a','b','c','d','e','f')

for(v in vectorletras ){
  print(v)
}

## [1] "a"
## [1] "b"
## [1] "c"
## [1] "d"
## [1] "e"
## [1] "f"

Suma de un vector de Números

vectorNumeros <- c(10, 23,34,2,4,32,8,16)
suma <- 0
contar <- 0
fin <- length(vectorNumeros)

for(n in vectorNumeros ){
  contar <- contar + 1 
  suma <- suma + n
  if(contar ==  fin ){
    print(suma)
  }
  
  
}

## [1] 129

Recorrer vector de Nombres

vectorNombre <- c("Jose", "Fernando","Adrian","Diego","Jesus","Adriana")


for (i in vectorNombre) {
  cat( "Hola ", i, "\n")
}

## Hola  Jose 
## Hola  Fernando 
## Hola  Adrian 
## Hola  Diego 
## Hola  Jesus 
## Hola  Adriana

While

Números del 1 al 10 indica si es numero es mayor de 5

n <- 0

while( n < 10) {
  n <- n+1
  if(n > 5){
    cat('el número ', n ,' es mayor de 5  \n')
  }else{
    print(n)
  }
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## el número  6  es mayor de 5  
## el número  7  es mayor de 5  
## el número  8  es mayor de 5  
## el número  9  es mayor de 5  
## el número  10  es mayor de 5

Números del 1 al 100 sumarlos y mostrar el resultado

n <- 0
suma <- 0

while( n < 100) {
  n <- n+1
  suma <- suma + n
  if (n == 100){
    print(suma)
    
  }
  
}

## [1] 5050

Restar 1 a un numero dado hasta llegar a cero

n <- 10
suma <- 0

while( n > 0) {
  n <- n-1
  print(n)
  
}

## [1] 9
## [1] 8
## [1] 7
## [1] 6
## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1
## [1] 0

Switch

Imprime el dia de la semana

diasemana <- function(x){
  dia <- switch(x,
                'Domingo','Lunes','Martes','Miercoles','Jueves','Viernes','Sabado'
                )
  dia
}

diasemana(1)

## [1] "Domingo"

diasemana(3)

## [1] "Martes"

Tipo de dato

tipo_var <- function(variable) {
  tipo <- class(variable)
  
  resultado <- switch(tipo,
                      "character" = "Es una variable de tipo carácter.",
                      "numeric" = "Es una variable de tipo numérico.",
                      "integer" = "Es una variable de tipo entero.",
                      "logical" = "Es una variable de tipo lógico.",
                      "factor" = "Es una variable de tipo factor.",
                      "No Definido")

  cat('la variable: ',variable,' es de tipo ',resultado, ' ', tipo )
}


var1 <- "Hola"
var2 <- 123.45
var3 <- TRUE
var4 <- factor("A")

tipo_var(var1)

## la variable:  Hola  es de tipo  Es una variable de tipo carácter.   character

tipo_var(var2)

## la variable:  123.45  es de tipo  Es una variable de tipo numérico.   numeric

tipo_var(var3)

## la variable:  TRUE  es de tipo  Es una variable de tipo lógico.   logical

tipo_var(var4)

## la variable:  1  es de tipo  Es una variable de tipo factor.   factor

Nombre del mes

Nombremes <- function(x){
  mes <- switch(x,
                'Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio','Agosto','Septiembre','Octubre','Noviembre','Diciembre'
                )
  mes
}

Nombremes(1)

## [1] "Enero"

Nombremes(8)

## [1] "Agosto"