#Operaciones ##Operaciones Aritmeticas ##Suma

100+50
## [1] 150
suma1<-10+20
suma2<-20
suma1+suma2
## [1] 50
#Resta
13-2
## [1] 11
print(suma1)
## [1] 30
#Multiplicacion
10*10
## [1] 100
#Division
20/2
## [1] 10

##Operaciones Logicas

las variables logicas solo tienen dos estados

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

##Operaciones de Comparacion

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

##Estructura de control

if, else if, else

X<-0

if (X > 0){ print(“X es positive”) } else if (x==0){ print(“X es CERO”) }else{ print(“x es negative”) }

x<-0
if (x>0){
   print("x es positive")
 } else if (x==0){
   print("x es CERO")
 }else {
  print("x es negative")
 }
## [1] "x es CERO"

##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(i)
 }
## [1] "a"
## [1] "b"
## [1] "c"
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"

#for para iterar o recorrer los indices del vector #el elemento en la posicion 1 es a

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"

estructura de control while

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

estructura de control switch

value <-3 result<-switch(value,“1”=“one”, “2”=“two”,“3”=three”,invalid)

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

##funcion para sumar 2 numeros suma<-function(x,y){ return(x+y) }

suma<- function(x,y){
return (x+y)
}
suma(3,5)
## [1] 8