#operaciones ##Operaciones aritméticas ##Suma

#suma
10+20
## [1] 30
suma1<-20+38
suma2<-51+68
suma1+suma2
## [1] 177
print(suma1)
## [1] 58
#resta
13-3
## [1] 10
#multiplicación
Mult <- 8*5

#División
Div <- 15/5

#Potenciación
2^3
## [1] 8
#Módulo
7%%2
## [1] 1

##Operaciones Lógicas

Las variables lógicas solo tienen dos variables, falso o verdadero

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 de comparación

#Menor igual
5<=3
## [1] FALSE

##Estructuras de control

##Son condiciones especificas

##if, else if, else

#Determinar si un numero es positivo, negativo o cero
x<- 5
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(i in vec){ 
  print(paste("El elemento del vector es",i))
}
## [1] "El elemento del vector es a"
## [1] "El elemento del vector es b"
## [1] "El elemento del vector es c"
vec[3]#posición
## [1] "c"

##Estructura de control while

i <- 6

while(i<=5){
  print(i)
  i<-i+1
  
}

Estructura de control switch

value <- 1

result <- switch(value, "1"="one", "2"="two", "3"="three","invalid")
print(result)
## [1] "one"

Definir una función

evaluar_numero <- function(x){
  if (x>0){
    print("x es positivo")
  } else if (x==0){}
}