Comentarios

# Comentarios

Cambio de directorio

## Identificar el directorio actual de trabajo
getwd()

## Definir el directorio de trabajo
setwd("")

## Verificación que si se cambió el directorio de trabajo
getwd()

Ayudas en R

# Ayuda en R
help()

# Ayuda sobre una función (exige que sepamos el nombre de la función)
help(sd)
?mean

# Buscar ayuda sobre un concepto estadístico
help.search("regression")
??regression

Creación de objetos

## Creación de objetos
ejm <- c(10, 30, 1, 15, 8)
ejm

ejm = c(2,3,4,5,6,7)
ejm

nv = c(1,2,3,4,5)
x <- c(2,3,5,6,7)

a=c(1,2,3)
b=c(4,5,6)

c=a+b
c
d=a-b
d

Crear de números aleatorios

ejm.normal = rnorm(100000)
plot(density(ejm.normal))

y <- rpois(1000, 3)
hist(y)

w <- rexp(1000, rate = 1/5)
plot(density(w))

x <- c(1,2,3,4,5)
y <- x + rnorm(5, 1.5, 2)
plot(density(y))

z <- x + y

# Crear secuencias
seq(1,10,1)
##  [1]  1  2  3  4  5  6  7  8  9 10
seq(1,10,2)
## [1] 1 3 5 7 9
seq(1,10,5)
## [1] 1 6
seq(2,100,4)
##  [1]  2  6 10 14 18 22 26 30 34 38 42 46 50 54 58 62 66 70 74 78 82 86 90 94 98
w <- seq(1,100,2)
w
##  [1]  1  3  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49
## [26] 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99

Guardar el workspace

save.image("Practica_Parte1.RData")

## Borrar toda el workspace
rm(list = ls())

# Cargar workspace
load("Practica_Parte1.RData")
## Mirar objeto que se encuentran en el workspace
ls()

## Borrar un objeto del workspace
rm(x)
ls()

## Borrar mas de un objeto del workspace
rm(y,z)
ls()

## Borrar todos los objetos del workspace
rm(list=ls())
ls()

Instalación de paquetes

# Para ver que paquetes están instalados
installed.packages()

# Para instalar un paquete, por ejemplo el paquete "rsm"
# install.packages("nombre_paquete")
install.packages("rsm")

# Para cargar un paquete, por ejemplo el paquete "rsm"
library(rsm)
require(rsm)

install.packages("ade4")
library(ade4)
require(ade4)

# Para cargar un paquete que ya esta instalado por defecto en R 
library(MASS)
?mvrnorm

Identificar la clase del objeto

#?class
x <- c(1,2,3,4,5)

class(x)
## [1] "numeric"
is.numeric(x)
## [1] TRUE
# Operaciones con la clase "numeric"

# Suma
2+2
## [1] 4
# Resta
3-4
## [1] -1
# Multiplicación
4*6
## [1] 24
# Exponenciación
2^3
## [1] 8
# Comparación

3==3
## [1] TRUE
4>=2
## [1] TRUE
5>1
## [1] TRUE
7<=10
## [1] TRUE
1!=2 #!="diferente"
## [1] TRUE
1!=1
## [1] FALSE

Operaciones con la clase “character”

# Crear un objeto de la clase "character"
ec <- c("casado", "soltero", "viudo")

# Concatenar cadenas
c1 <- "01"
c2 <- "NOV-03"
c3 <- "2021"

paste(c1,c2,c3) #por defecto usa el separador por espacios
## [1] "01 NOV-03 2021"
paste(c1,c2,c3, sep="") #sin separador
## [1] "01NOV-032021"
paste(c1,c2,c3, sep=",") #cambiando el separador a ","
## [1] "01,NOV-03,2021"
paste(c1,c2,c3, sep="-") 
## [1] "01-NOV-03-2021"

Extracción de subcadenas

ejemplo <- "EstadisticaDescriptiva"
substr(ejemplo, 12, 22)
## [1] "Descriptiva"
# Operaciones clase factor
x <- c("A", "B", "A", "C", "A", "C")
x
## [1] "A" "B" "A" "C" "A" "C"
class(x)
## [1] "character"
table(x)
## x
## A B C 
## 3 1 2

Convertir a la clase factor

fx <- factor(x)
fx
## [1] A B A C A C
## Levels: A B C
class(fx)
## [1] "factor"
# Ver niveles de un factor
levels(fx)
## [1] "A" "B" "C"
# Recuento de las frecuencias absolutas
table(fx)
## fx
## A B C 
## 3 1 2
#
Var1=c(rep("A",5),rep("B",10))
Var1=factor(Var1,levels=c("B","A"))
Var1=factor(Var1,levels=c("B","A"),labels=c("Feliz","Triste"))
Var1
##  [1] Triste Triste Triste Triste Triste Feliz  Feliz  Feliz  Feliz  Feliz 
## [11] Feliz  Feliz  Feliz  Feliz  Feliz 
## Levels: Feliz Triste

Operaciones con la clase “logical”

p <- TRUE
q <- FALSE

# Negación
!q
## [1] TRUE
!p
## [1] FALSE
# OR
p|q
## [1] TRUE
# AND
p&q
## [1] FALSE
is.logical(p)
## [1] TRUE
is.logical(q)
## [1] TRUE
x<-c(1,2,3,11,20,30)
x>10
## [1] FALSE FALSE FALSE  TRUE  TRUE  TRUE
x[x>10]
## [1] 11 20 30
x[x<10]
## [1] 1 2 3
x[x<3]
## [1] 1 2
sum(x>10)
## [1] 3
sum(x<3)
## [1] 2
sum(x[x>10])
## [1] 61