#Operaciones ##Operaciones aritmeticas

#suma
10+20
## [1] 30
suma1<-15+7
suma2<-59+23
suma1+suma2
## [1] 104
#resta
13-3
## [1] 10
resta1<-23-9
resta2<-8-2
resta1-resta2
## [1] 8
#multiplicacion
multi<-5*8
multi
## [1] 40
#Division
Div<-15/5
Div
## [1] 3
#Potencia
2^3
## [1] 8
#Modulo
8%%4
## [1] 0

##Operaciones aritmeticas

Logi<- TRUE

#Operador AND
TRUE & TRUE
## [1] TRUE
TRUE & FALSE
## [1] FALSE
FALSE & FALSE
## [1] FALSE
#Operador OR
TRUE | TRUE
## [1] TRUE
TRUE | FALSE
## [1] TRUE
FALSE | FALSE
## [1] FALSE
#Operador NOT
!Logi
## [1] FALSE

#Operaciones

5==3
## [1] FALSE
5!=3
## [1] TRUE
5>3
## [1] TRUE
5>=3
## [1] TRUE
5<3
## [1] FALSE
5<=3
## [1] FALSE

##Estructura de control

if , else , else if

x<- 5
#Determinar si un número es positivo, negativo o cero
if (x>0){
  print("X es positivo")
} else if (x==0){
  print('X es cero')
} else{
  print("X es negativo")
}
## [1] "X es positivo"

#estructura FOR

for (i in 1:5){
  print(i)
}
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
vec <- c("a","b","c")
length(vec)
## [1] 3
for(val in vec){
  print(paste("El elemento del vector es",val))
}
## [1] "El elemento del vector es a"
## [1] "El elemento del vector es b"
## [1] "El elemento del vector es c"
vec[1]
## [1] "a"
vec[2]
## [1] "b"
vec[3]
## [1] "c"
for(i in 1:length(vec)){
  print(paste("el elemento en la posicion",i,"es",vec[i]))
}
## [1] "el elemento en la posicion 1 es a"
## [1] "el elemento en la posicion 2 es b"
## [1] "el elemento en la posicion 3 es c"

##Etructura de control While

a <- 1
while(a<=5){
  print(a)
  a<-a+1
}
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5

##Esctructura de Switch

#ejercicio 1
value <-3

result <- switch(value,"1"="One","2"="Two","3"="Three","Invalid")
print(result)
## [1] "Three"

##Definir funcion

#ejercicio 2
evaluar_numero <- function(x){
  if (x>0){
    print("X es positivo")
  } else if (x==0){
    print('X es cero')
  } else{
    print("X es negativo")
  }
}


evaluar_numero(3)
## [1] "X es positivo"