Cmp1

# Ctrl + Shift + C para comentar lineas
# Ctrl + Alt + R para correr todo el codigo
# Ctrl + R correr la linea donde esta el cursor
# Ctrol + L Limpiar la consola
# Introducción a R --------------------------------------------------------


#Definición o asignación de variables
#Se pueden definir varialves con el operador = o con una flecha <-

a = 1
b <- 2

#Existen diferentes clases de objetos en R

#Caracteres
#Numeros (reales)
#Enteros
#Complejos
#Logicos (True/False)

#---------------------------------Vectores----------------------------------#
#Tambien podemos crear vectores que tengan diferentes clases de objetos
#Vector con numeros enteros
vectorA = c(1,5)

#Vector con caracteres
vectorB = c('hola', 'bien','modelos')

#Vector con diferentes calses de objetos
vectorDiverso = c(1.4, 'dos', TRUE)
class(vectorDiverso)

vectorExplicito = 0:7
class(vectorExplicito)

as.character(vectorExplicito)

as.logical(vectorExplicito)

#------------------------------------Paquetes en R--------------------------#

# install.packages("Nombre del paquete")
# library('Nombre del paquete')

install.packages('markovchain')
library('markovchain')

#------------------------------------Funciones en R-------------------------#

#estructura de codigo de una función
funcion1 = function(arg1,arg2){
  statements
  return(object)
}
#Ejemplo: Crear una función que reciba como parametro un numero y calcule su 
#raiz cubica y suma 10

funcion2 = function(n){
  valor = (n^(1/3))+10
  return(valor)
}
funcion2(4)


#Una función, no necesariamente debe retornar un valor numerico, puede retornar graficas
funcion3 = function(x){
  y <- seq(from = 1, to = length(x), by = 1)
  plot(y,x, type = 'c', col = 'red')
}

vector1 = c(5,4,7,6,10)
funcion3(vector1)

#Recorridos en R
funcion4 = function(v1,v2){
  vectorResultado = rep(0,times = length(v1))
  
  for(i in 1:length(v1)){
    vectorResultado[i] = max(v1[i],v2[i])
  }
  return(vectorResultado)
}

vectorp = c(2,3,4,5,6)
vectorp2 = c(3,1,9,8,2)

funcion4(vectorp,vectorp2)


#Estructuras de control o condicionales
x = 4
if (x <= 10) {
  print('x es menor a 10')
} else {
  print('x es mayor a 10')
} 

x = 10
if (x > 1 & x < 7) {
  print('X es un numero entre 1 y 7')
} else if (x > 8 & x < 15) {
  print(('X es un numero entre 8 y 15'))
}

#Poniendo en practica lo aprendido, vamos a elaborar una función que retorne TRUE
#si un numero especifico esta dentro de un vector

funcion5 = function(vector,n){
  for (i in 1:length(vector)) {
    if (vector[i] == n) {
      return(TRUE)
    } 
  }
  return(FALSE)
}


vectorE = c(3,4,7,9,10,18,23,78,95)
y = 18
funcion5(vectorE,y)

#Graficas en R
#Vamos a crear un grafico de lineas usando dos vectores

vectorC = c(1,3,4,7,8,4,2)
vectorD = c(1,2,3,4,5,6,7)

grafica = plot(vectorD, vectorC, type = 'l', col = 'blue')