Vamos a realizar una prueba Mardown

Esto es un Encabezado Titulo Grande

Este es otro tipo de Encabezado

Titulo de Tercer Nivel

Titulo del cuarto Nivel

Titulo del Quinto Nivel

Esto es negrita negrita seguimos

Lista Elementos

  • elemento 1
  • elemento 2
  • elemento 3

Incrustar codigo R

Crear dos vectores de Edades y nombres

# Aqui es donde  va codigo R

edades <- c(50,34,45,35,38,36,29,43,40,28,28,30,28,45)
nombres <- c("Ruben","Dany","alma","Carlos",
            "Daniel","Dell","FRancisco",
            "Isaac","Javier","jesus","Laura",
            "luis","maria","Verenice")

Ver el contenido de los Vectores

edades 
##  [1] 50 34 45 35 38 36 29 43 40 28 28 30 28 45
nombres
##  [1] "Ruben"     "Dany"      "alma"      "Carlos"    "Daniel"    "Dell"     
##  [7] "FRancisco" "Isaac"     "Javier"    "jesus"     "Laura"     "luis"     
## [13] "maria"     "Verenice"
  • Con la funcion length() determina la cantiada de elementos de un vector ## Longitud de un Vector
length(edades)
## [1] 14
length(nombres)
## [1] 14

Acceder a elementos de un vector

  • Atravez de [] indicando cual elemento queremos ver

*El [3]: elemento 3

*El [1:4]: elementos del 1 al 4

*El [-1]: todoslos elementos excepto el primero

*El [c(2,4,6,8.10,12,14)]: los pares hasta 14

nombres
##  [1] "Ruben"     "Dany"      "alma"      "Carlos"    "Daniel"    "Dell"     
##  [7] "FRancisco" "Isaac"     "Javier"    "jesus"     "Laura"     "luis"     
## [13] "maria"     "Verenice"
nombres [3]
## [1] "alma"
nombres [1:4]
## [1] "Ruben"  "Dany"   "alma"   "Carlos"
nombres [-1]
##  [1] "Dany"      "alma"      "Carlos"    "Daniel"    "Dell"      "FRancisco"
##  [7] "Isaac"     "Javier"    "jesus"     "Laura"     "luis"      "maria"    
## [13] "Verenice"
nombres [c(2,4,6,8,10,12,14)]
## [1] "Dany"     "Carlos"   "Dell"     "Isaac"    "jesus"    "luis"     "Verenice"

####De que tipo de dato es el vector

  • char
  • numeric -doble
  • numeric -integer
  • Booleanos
  • NA
  • NULL
  • Factor
typeof(edades)
## [1] "double"
typeof(nombres)
## [1] "character"

Secuencias en R son vectores :Numericos

1:4 #secuencia del 1 al 4
## [1] 1 2 3 4
seq(1,100)
##   [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(-10,10)
##  [1] -10  -9  -8  -7  -6  -5  -4  -3  -2  -1   0   1   2   3   4   5   6   7   8
## [20]   9  10
seq(-0.5,0.5,0.1)
##  [1] -0.5 -0.4 -0.3 -0.2 -0.1  0.0  0.1  0.2  0.3  0.4  0.5
seq(from=-0.5, to= 0.5,by=0.1) #misma que 93
##  [1] -0.5 -0.4 -0.3 -0.2 -0.1  0.0  0.1  0.2  0.3  0.4  0.5
head(seq(1,100000,0.5)) #solo los primeros 6
## [1] 1.0 1.5 2.0 2.5 3.0 3.5
tail(seq(1,100000,0.5)) #solo los ultimos 6 
## [1]  99997.5  99998.0  99998.5  99999.0  99999.5 100000.0
length(seq(0.5,100000,0.5)) #200000
## [1] 200000

Repeticiones en R son vectores

*rep() Permite repetir elementos

rep(4, 6) # repite el 4 seis veces
## [1] 4 4 4 4 4 4
rep("abdon",10)
##  [1] "abdon" "abdon" "abdon" "abdon" "abdon" "abdon" "abdon" "abdon" "abdon"
## [10] "abdon"
rep(1:5,3)
##  [1] 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5
length(rep(1:5,3))
## [1] 15
rep(seq(2,100,2),5)
##   [1]   2   4   6   8  10  12  14  16  18  20  22  24  26  28  30  32  34  36
##  [19]  38  40  42  44  46  48  50  52  54  56  58  60  62  64  66  68  70  72
##  [37]  74  76  78  80  82  84  86  88  90  92  94  96  98 100   2   4   6   8
##  [55]  10  12  14  16  18  20  22  24  26  28  30  32  34  36  38  40  42  44
##  [73]  46  48  50  52  54  56  58  60  62  64  66  68  70  72  74  76  78  80
##  [91]  82  84  86  88  90  92  94  96  98 100   2   4   6   8  10  12  14  16
## [109]  18  20  22  24  26  28  30  32  34  36  38  40  42  44  46  48  50  52
## [127]  54  56  58  60  62  64  66  68  70  72  74  76  78  80  82  84  86  88
## [145]  90  92  94  96  98 100   2   4   6   8  10  12  14  16  18  20  22  24
## [163]  26  28  30  32  34  36  38  40  42  44  46  48  50  52  54  56  58  60
## [181]  62  64  66  68  70  72  74  76  78  80  82  84  86  88  90  92  94  96
## [199]  98 100   2   4   6   8  10  12  14  16  18  20  22  24  26  28  30  32
## [217]  34  36  38  40  42  44  46  48  50  52  54  56  58  60  62  64  66  68
## [235]  70  72  74  76  78  80  82  84  86  88  90  92  94  96  98 100

####Vectorizar vectores o hacer operaciones con vectores sumar vectores operaciones aritmetricas con vectores

numeros <-c(4,5,6,7,6,5,4,5,9)

numeros *2
## [1]  8 10 12 14 12 10  8 10 18
numeros  ^ 3
## [1]  64 125 216 343 216 125  64 125 729

ordenar elementos

numeros
## [1] 4 5 6 7 6 5 4 5 9
sort(numeros)
## [1] 4 4 5 5 5 6 6 7 9
sort(numeros,decreasing = TRUE)
## [1] 9 7 6 6 5 5 5 4 4

Agregar mas valores a numeros

numeros 
## [1] 4 5 6 7 6 5 4 5 9
length(numeros)
## [1] 9
numeros <- c(numeros, 2,6,5,7,8,9)

numeros
##  [1] 4 5 6 7 6 5 4 5 9 2 6 5 7 8 9
length(numeros)
## [1] 15

#graficar edades y nombres

barplot(edades,names.arg = nombres,
        main ="Edades de los Participantes",
        xlab ="Nombres",ylab = "Edades")