#operaciones ##Operaciones aritmeticas ##suma

#suma
suma1<-20+36
suma1
## [1] 56
suma2<-51+68
suma2
## [1] 119
suma1+suma2
## [1] 175
#Resta
13-3
## [1] 10
#multiplicacion
mult <- 8*5

#division
div<- 15/5

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

##operaciones logica las variables logicas solo tienen dos estados.

logi <- TRUE

#operador AND
TRUE && TRUE #SE PUEDE USAR DOS O 1 &
## [1] TRUE
TRUE & FALSE
## [1] FALSE
FALSE & FALSE
## [1] FALSE
#OPERADORR OR 

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

ESTRUCTURAS DE CONTROL

If, else if, else

x<-0

if (x>0){
  print("x es positivo")
}else if (x==0){
print("x es cero")
}else{
print("x es negativo")
}
## [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(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"

for para iterar o recorrer los indices del vector

#el elemento en la posicion 1 es 1

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")
print(result)
## [1] "three"

##definir una funcion

evaluar_numero <- function(x){
  
  x<-0

   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 cero"
 #$funcion para sumar dos numeros
 
 suma<-function(x,y){
   
   return (x+y)
   
}
#Tipo de variable 
logi<-TRUE
numer<- 2.4
nombre<- "nazly"
int<-as.integer(2)
class(int)
## [1] "integer"