semana 2

Creamos una funcion llamada signo para verificar si un numero es positivo, negativo o cero.

 signo=function(x){
 if (x > 0) {
   print("el número es positivo")
 } else if (x < 0) {
   print("el número es negativo")
 } else {
   print("el número es cero")
 }
 }
 signo(-7)

[1] "el número es negativo"

 signo (0)

[1] "el número es cero"

 signo(9)

[1] "el número es positivo"

funcion para calcular el factorial de un numero.

 factorial_rec <- function(n) {
if (n == 0) {
     return(1)
   } else {
    return(n * factorial_rec(n - 1))
   }
 }
   factorial_rec(4)

[1] 24

Determinar el signo de un vector de valores

 y <- c(1, -2, 3, -4, 5)
 result <- ifelse(y > 0, "positivo", "negativo")
 print(result)

[1] "positivo" "negativo" "positivo" "negativo" "positivo"

Imprimir numeros del 1 al 5

 for (i in 1:5) {
   print(i)
 }

[1] 1
[1] 2
[1] 3
[1] 4
[1] 5