Función concatenar c()

?c
## starting httpd help server ... done

Un vector del 1 al 5

a <- c(1,2,3,4,5)
a
## [1] 1 2 3 4 5

Números del 1 al 10

b <- c(1:10)
b
##  [1]  1  2  3  4  5  6  7  8  9 10
c <- c(10:1)
c
##  [1] 10  9  8  7  6  5  4  3  2  1
d <- c(1.5:7.5)
d
## [1] 1.5 2.5 3.5 4.5 5.5 6.5 7.5
e <-  c(1:5,2,4,-3)
e
## [1]  1  2  3  4  5  2  4 -3

Función secuencia seq ()

f <-  seq(1:10)
f
##  [1]  1  2  3  4  5  6  7  8  9 10
g <- seq(1,20,2)
g
##  [1]  1  3  5  7  9 11 13 15 17 19
i <- seq(1,10, length=6)
i
## [1]  1.0  2.8  4.6  6.4  8.2 10.0

Función replicar rep ()

j <- rep(3,10)
j
##  [1] 3 3 3 3 3 3 3 3 3 3
k <- rep(a, 2)
k
##  [1] 1 2 3 4 5 1 2 3 4 5

Función generador de niveles o clases gl()

n <- gl(2,6)
n
##  [1] 1 1 1 1 1 1 2 2 2 2 2 2
## Levels: 1 2
o <- gl(2,6,labels=c("Rojo", "Azul"))
o
##  [1] Rojo Rojo Rojo Rojo Rojo Rojo Azul Azul Azul Azul Azul Azul
## Levels: Rojo Azul

##Función tabla de combinaciones expand.grid()

Generar una tabla con edades /36 o 25), peso (75 o 60) y equipo favorito (Tigres o Rayados)

p <-  expand.grid(edad=c(36,25), peso = c(75, 60), equipo = c("Tigres", "Rayados"))
p
##   edad peso  equipo
## 1   36   75  Tigres
## 2   25   75  Tigres
## 3   36   60  Tigres
## 4   25   60  Tigres
## 5   36   75 Rayados
## 6   25   75 Rayados
## 7   36   60 Rayados
## 8   25   60 Rayados

Función nommbrar columnas names()

names(a) <- c("Lunes", "Martes", "Miércoles", "Jueves", "Viernes")
a
##     Lunes    Martes Miércoles    Jueves   Viernes 
##         1         2         3         4         5

Función modo mode ()

mode(b)
## [1] "numeric"
mode(b) <- "character"
b
##  [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"
LS0tDQp0aXRsZTogIk1hbmlwdWxhY2nDs24gZGUgZGF0b3MiDQphdXRob3I6ICJOYWlsYSBJdHplbCBTYWxpbmFzIEFsZmFybyAtIEEwMDgzMjcwMiINCmRhdGU6ICIyMDIzLTAzLTE3Ig0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogdHJ1ZQ0KICAgIHRvY19mbG9hdDogdHJ1ZQ0KICAgIGNvZGVfZG93bmxvYWQ6IHRydWUNCi0tLQ0KDQojIyBGdW5jacOzbiBjb25jYXRlbmFyIGMoKQ0KDQpgYGB7cn0NCj9jDQpgYGANCg0KIyMgVW4gdmVjdG9yIGRlbCAxIGFsIDUgDQpgYGB7cn0NCmEgPC0gYygxLDIsMyw0LDUpDQphDQpgYGANCg0KIyMgTsO6bWVyb3MgZGVsIDEgYWwgMTANCmBgYHtyfQ0KYiA8LSBjKDE6MTApDQpiDQoNCmMgPC0gYygxMDoxKQ0KYw0KDQpkIDwtIGMoMS41OjcuNSkNCmQNCg0KZSA8LSAgYygxOjUsMiw0LC0zKQ0KZQ0KYGBgDQoNCiMjIEZ1bmNpw7NuIHNlY3VlbmNpYSBzZXEgKCkNCg0KYGBge3J9DQoNCmYgPC0gIHNlcSgxOjEwKQ0KZg0KDQpnIDwtIHNlcSgxLDIwLDIpDQpnDQoNCmkgPC0gc2VxKDEsMTAsIGxlbmd0aD02KQ0KaQ0KDQpgYGANCg0KIyMgRnVuY2nDs24gcmVwbGljYXIgcmVwICgpDQoNCmBgYHtyfQ0KDQpqIDwtIHJlcCgzLDEwKQ0Kag0KDQprIDwtIHJlcChhLCAyKQ0Kaw0KDQpgYGANCg0KDQojIyBGdW5jacOzbiBnZW5lcmFkb3IgZGUgbml2ZWxlcyBvIGNsYXNlcyBnbCgpDQpgYGB7cn0NCm4gPC0gZ2woMiw2KQ0Kbg0KDQpvIDwtIGdsKDIsNixsYWJlbHM9YygiUm9qbyIsICJBenVsIikpDQpvDQoNCmBgYA0KDQojI0Z1bmNpw7NuIHRhYmxhIGRlIGNvbWJpbmFjaW9uZXMgZXhwYW5kLmdyaWQoKQ0KDQojIyMgR2VuZXJhciB1bmEgdGFibGEgY29uIGVkYWRlcyAvMzYgbyAyNSksIHBlc28gKDc1IG8gNjApIHkgZXF1aXBvIGZhdm9yaXRvIChUaWdyZXMgbyBSYXlhZG9zKQ0KYGBge3J9DQpwIDwtICBleHBhbmQuZ3JpZChlZGFkPWMoMzYsMjUpLCBwZXNvID0gYyg3NSwgNjApLCBlcXVpcG8gPSBjKCJUaWdyZXMiLCAiUmF5YWRvcyIpKQ0KcA0KYGBgDQoNCiMjIyBGdW5jacOzbiBub21tYnJhciBjb2x1bW5hcyBuYW1lcygpDQpgYGB7cn0NCm5hbWVzKGEpIDwtIGMoIkx1bmVzIiwgIk1hcnRlcyIsICJNacOpcmNvbGVzIiwgIkp1ZXZlcyIsICJWaWVybmVzIikNCmENCmBgYA0KDQojIyMgRnVuY2nDs24gbW9kbyBtb2RlICgpDQoNCmBgYHtyfQ0KbW9kZShiKQ0KbW9kZShiKSA8LSAiY2hhcmFjdGVyIg0KYg0KYGBgDQoNCg0K