#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"
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"
i<-1
while (i<=5) {
print(i)
i<-i+1
}
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
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