Definen vectores

a <- c(1,2,3,4,5)
a
## [1] 1 2 3 4 5
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

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

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 de generador de niveles o clases

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 de tabla

#Generar una tabla cone dades (36 o 25), peso (75 o 60) y equipo fav (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 de nombrar columnas

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

Función mode

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