Introduccion a R para Modelación Ambiental

Instalación de Librerias

# install.packages("Libreria)
library(pacman) 
#Ayuda a instalr librerias con mayor facilidad y las activa en una sola linea

p_load("prettydoc", "DT", "xfun", "base64enc", "htmltools", "mime")

Para incluir descargas de archivos:

xfun::embed_file("Modelacion1.Rmd")  #Crea un boton para descargar el código y los datos

Download Modelacion1.Rmd

Creación de Objetos

Objeto Numérico

mi.objeto <- 48

Cadena de Texto

mi.objeto2 <- "R es util"

TAREA Tutorial

Tutorial parte 1 (Instalación de R)

Tutorial parte 2 (Cálculos básicos)

Suma, Resta, multiplicación, División, exponentes

#Suma
2 + 2

## [1] 4

#Resta
54 - 25

## [1] 29

#Multiplicacion
5 * 7

## [1] 35

#División
125 / 5

## [1] 25

#Exponenete
2^5

## [1] 32

2^(-2)

## [1] 0.25

100^(1/2)

## [1] 10

Constantes como pi, exponencial, Logaritmos, Seno, coseno

exp(1) #Exponencial

## [1] 2.718282

pi #Cosntante pi

## [1] 3.141593

log(1000) #Logaritmo

## [1] 6.907755

log10(1000) #Logaritmo base 10

## [1] 3

log(16, base = 4) #Logaritmo base 4 de 16

## [1] 2

sin(pi) #Seno de pi

## [1] 1.224606e-16

cos(pi) #Coseno de pi

## [1] -1

#?log para buscar

Instalar libreria “ggplot2” para gráficas bonitas

Tutorial parte 3 (Tipos de Datos)

Tipos de variables o datos: numerico (numeric o double), enteros (integer), complejo (complex), logicos (logical), caracter (character)

bienvenidos <- ("al tutorial de r")
x <- 1.2    #x es numérico o double
class(x)    #dice el tipo de dato

## [1] "numeric"

is.numeric(x)  #Operador logico (En este caso es True, si es numerico)

## [1] TRUE

is.numeric(bienvenidos) #(FALSE)

## [1] FALSE

Y = as.numeric(x)   #Convierte cualquier tipo de dato a numerico
y <- as.integer(x) # convierte de numeric a interger

c <- 3.5 * 4i   #Complejo o Complex
is.complex(c)

## [1] TRUE

#Tipo Logico (logical)
logical = T   # T = TRUE = VERDADERO
logical

## [1] TRUE

l = F
l

## [1] FALSE

class(l)

## [1] "logical"

str <- "Programar en R"   #Tipo Character
class(str)

## [1] "character"

is.character(str)

## [1] TRUE

Vectores (Agrupación de datos)

numeros <- c(1, 2, 3, 4, 5, 6, 7, 8, 9)  # c = Concatenar
class(numeros)

## [1] "numeric"

length(numeros)  #cantidad de datos del vactor numeros

## [1] 9

numeros[3]  #Imprime el numero de la posicion 3 del vector (izquierda a derecha)

## [1] 3

Tutorial parte 4 (Estructuras de datos, Vectores)

Secuancia de datos (seq), Repetir (rep)

numvec <-  c(2, 4, 6, 8, 10)
class(numvec) #Tipo de dato

## [1] "numeric"

length(numvec) #Longitud

## [1] 5

numvec[3]

## [1] 6

mezcla <- c("rojo", 5, TRUE)  #No combina tipos de datos diferentes en un mismo vector
mezcla

## [1] "rojo" "5"    "TRUE"

class(mezcla)

## [1] "character"

# Secuecia de Datos
{z = 1:100} # de 1 hasta 100
z

##   [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18
##  [19]  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36
##  [37]  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54
##  [55]  55  56  57  58  59  60  61  62  63  64  65  66  67  68  69  70  71  72
##  [73]  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90
##  [91]  91  92  93  94  95  96  97  98  99 100

seq(from=1.5, to=4.2, by= 0.1) # Secuencia desde 1.5 hasta 4.2 en intervalos de 0.1

##  [1] 1.5 1.6 1.7 1.8 1.9 2.0 2.1 2.2 2.3 2.4 2.5 2.6 2.7 2.8 2.9 3.0 3.1 3.2 3.3
## [20] 3.4 3.5 3.6 3.7 3.8 3.9 4.0 4.1 4.2

seq(1.5,4.2,0.1)

##  [1] 1.5 1.6 1.7 1.8 1.9 2.0 2.1 2.2 2.3 2.4 2.5 2.6 2.7 2.8 2.9 3.0 3.1 3.2 3.3
## [20] 3.4 3.5 3.6 3.7 3.8 3.9 4.0 4.1 4.2

#REPETIR
rep("Palabra", times=7) #REpite "Palabra" 7 veces

## [1] "Palabra" "Palabra" "Palabra" "Palabra" "Palabra" "Palabra" "Palabra"

c (y, rep(seq(1, 9, 2),3), c(1, 2, 3), 42, 2:4) #Combina las repetciones y la secuancia de datos en el vector

##  [1]  1  1  3  5  7  9  1  3  5  7  9  1  3  5  7  9  1  2  3 42  2  3  4

j <- c(T,T, F, T, T,F)
j

## [1]  TRUE  TRUE FALSE  TRUE  TRUE FALSE

Operaciones en los vectores

o = 1:10
o

##  [1]  1  2  3  4  5  6  7  8  9 10

o*2

##  [1]  2  4  6  8 10 12 14 16 18 20

#Cualquier operacion que se realice con el vector se realizara a cada dato dentro del vector

#Con operadores logicos
o <- c(1, 3, 5, 7, 8, 9)
o>3

## [1] FALSE FALSE  TRUE  TRUE  TRUE  TRUE

o==3

## [1] FALSE  TRUE FALSE FALSE FALSE FALSE

o[o>3] #imprime los valores mayores a 3

## [1] 5 7 8 9

sum(o>3) #Suma los valores mayores a 3

## [1] 4

as.numeric(o>3) #0=F, 1=T

## [1] 0 0 1 1 1 1

which(o>3) #determina la locacion de un valor, indica posiciomnes de los valores

## [1] 3 4 5 6

max(o)   #Valor Maximo

## [1] 9

which(o==max(o))

## [1] 6

Modelación

M. Icedo

12/10/2021