#Operaciones ##Operaciones aritmeticas ##Suma

10+20
## [1] 30
suma1<-20+36
suma2=suma1+4
print(suma2)
## [1] 60

##Operaciones logicas

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 comparacion

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

x<-3
#
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")
tam<-length(vec)
i<-0
for (i in 1:tam) {
  print(paste("El elemento ",i, "es ",vec[i]))
  
}
## [1] "El elemento  1 es  a"
## [1] "El elemento  2 es  b"
## [1] "El elemento  3 es  c"

Estrucutura de control while

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

switch

value <- 3
result <- switch(value, "1"="one","2"="dos","3"="tres","invalido")
print(result)
## [1] "tres"

##Funciones

sumar <- function(z,x){
   return(z+x)
}
 

sumar(5,3)
## [1] 8