#operaciones ## operaciones aritmeticas ## suma

#suma
10+20
## [1] 30
suma1<-20+10
print(suma1)
## [1] 30
suma2=13+7
suma2
## [1] 20
suma1+suma2
## [1] 50
#resta
13-3
## [1] 10
#multiplicacion
mult <-8*5
#División
Div<-15/5
#potenciacion
5^2
## [1] 25

##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
#OPERADOR NOT
!logi
## [1] FALSE

##operacion de comparacion

##igual

5==3
## [1] FALSE

##no igual

5!=3
## [1] TRUE

##mayor

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

##estructuras de control

##if, else if, else

x<-5
##determinar si un numero 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[3] #acceder al elemento que esta en la posicion 3
## [1] "c"

#posición

##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 swicth

value <-3

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

##DEFINIR UNA FUNCION

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

##funcion para sumar dos numeros

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