Taller 1.2

integrantes

Catherine Prada Rodriguez 10152043

Edinson Javier Gamba Martinez 10151144

Oscar Ivan Jaramillo Vargas 10151088

Punto 17.

Para el comando data():

data()

1. ¿Es una lista?

is.list(data())

## [1] TRUE

2. ¿Qué estructura tiene?

str(data())

## List of 4
##  $ title  : chr "Data sets"
##  $ header : NULL
##  $ results: chr [1:104, 1:4] "datasets" "datasets" "datasets" "datasets" ...
##   ..- attr(*, "dimnames")=List of 2
##   .. ..$ : NULL
##   .. ..$ : chr [1:4] "Package" "LibPath" "Item" "Title"
##  $ footer : chr "Use 'data(package = .packages(all.available = TRUE))'\nto list the data sets in all *available* packages."
##  - attr(*, "class")= chr "packageIQR"

3. ¿Cual es su longitud?

length(data())

## [1] 4

Punto 18.

funciones:

v2 = c(1,2,NA,3,5,10,NA)

a is.na(v2)?

is.na(v2)

## [1] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE

Identifica como “TRUE” la posición en la que un dato no esta disponible.

2. complete.cases(v2)?

complete.cases(v2)

## [1]  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE

Identifica como “FALSE” la posición en la que un dato no esta disponible.

Punto 19.

v3 <- c(2,3,NA,4,5,100,NA,7)
v3 <- v3[!is.na(v3)]
v3

## [1]   2   3   4   5 100   7

Elimina los datos no disponibles.

Punto 20.

v4 <- 4:11
v4 > 5

## [1] FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE

Muestra un vector de valores lógicos donde se evidencia si los elementos del vector v4 cumple o no la condición.

v4[v4>5]

## [1]  6  7  8  9 10 11

Extrae los valores del vector v4 que cumplan la condición.

v4[c(rep(TRUE,3),rep(FALSE,4),TRUE)]

## [1]  4  5  6 11

Punto 21.

v5 <- numeric(0)
length(v5)

## [1] 0

Crea un vector con un único cero.

v6 <- vector("integer",7)
v6

## [1] 0 0 0 0 0 0 0

Imprime un vector con siete (7) ceros (0).

v7 <- vector("numeric",10)
v7

##  [1] 0 0 0 0 0 0 0 0 0 0

Imprime un vector con diez (10) ceros (0).

v8 <- vector("logical",5)
v8

## [1] FALSE FALSE FALSE FALSE FALSE

Imprime un vector de 5 elementos lógicos.

Punto 22.

options(digits=10)
pi*exp(1)

## [1] 8.539734223

Imprime los diez primeros decimales del la operacion pi multiplicada por euler.

pi

## [1] 3.141592654

Imprime el número pi.

round(pi,5)

## [1] 3.14159

Redondea los 5 primeros decimales del número pi.

ceiling(pi)

## [1] 4

Redondea el primer número entero mayor.

floor(pi)

## [1] 3

Redondea al primer número entero menor.

round(seq(1,2,0.1))

round(seq(1,2,0.1))

##  [1] 1 1 1 1 1 2 2 2 2 2 2

Imprime una secuencia de elementos que cumplen la secuencia aproximados al entero más cercano.

Punto 23

vect <- 1:150

1. Los pares

vect[vect%%2==0]

##  [1]   2   4   6   8  10  12  14  16  18  20  22  24  26  28  30  32  34
## [18]  36  38  40  42  44  46  48  50  52  54  56  58  60  62  64  66  68
## [35]  70  72  74  76  78  80  82  84  86  88  90  92  94  96  98 100 102
## [52] 104 106 108 110 112 114 116 118 120 122 124 126 128 130 132 134 136
## [69] 138 140 142 144 146 148 150

2. Los divisibles por 17

vect[vect%%17==0]

## [1]  17  34  51  68  85 102 119 136

3. Los no divisibles por 5

vect[vect%%5!=0]

##   [1]   1   2   3   4   6   7   8   9  11  12  13  14  16  17  18  19  21
##  [18]  22  23  24  26  27  28  29  31  32  33  34  36  37  38  39  41  42
##  [35]  43  44  46  47  48  49  51  52  53  54  56  57  58  59  61  62  63
##  [52]  64  66  67  68  69  71  72  73  74  76  77  78  79  81  82  83  84
##  [69]  86  87  88  89  91  92  93  94  96  97  98  99 101 102 103 104 106
##  [86] 107 108 109 111 112 113 114 116 117 118 119 121 122 123 124 126 127
## [103] 128 129 131 132 133 134 136 137 138 139 141 142 143 144 146 147 148
## [120] 149

4. Los que tienen residuo 3 bajo división por 7

vect[vect%%7==3]

##  [1]   3  10  17  24  31  38  45  52  59  66  73  80  87  94 101 108 115
## [18] 122 129 136 143 150

Punto 24

which(letters=="v")

## [1] 22

La letra “v” está en la posición 22.

Punto 25

Flecha hacia arriba: Retorna a los comandos usados anteriormente Flecha hacia abajo: Avanza a través de los comandos usados desde los anteriores hacia los próximmos Flecha hacia la derecha: Mueve el cursor hacia la derecha Flecha hacia la izquierda: Mueve el cursor hacia la izquierda

Punto 26

1. NA

class(NA)

## [1] "logical"

Valor lógico

2. Inf

class(Inf)

## [1] "numeric"

Valor numérico

3. NaN

class(NaN)

## [1] "numeric"

Valor numérico

4. NULL

class(NULL)

## [1] "NULL"

Valor nulo

5. TRUE

class(TRUE)

## [1] "logical"

Valor lógico

Punto 27

¿Qué tipo tienen? a.NA

typeof(NA)

## [1] "logical"

Tipo lógico

2. Inf

typeof(Inf)

## [1] "double"

Tipo doble

3. NaN

typeof(NaN)

## [1] "double"

Tipo doble

4. NULL

typeof(NULL)

## [1] "NULL"

Tipo nulo

5. TRUE

typeof(TRUE)

## [1] "logical"

Tipo lógico

Punto 28

¿Qué modo tienen?

1. NA

mode(NA)

## [1] "logical"

Modo lógico

2. Inf

mode(Inf)

## [1] "numeric"

Modo numérico

3. NaN

mode(NaN)

## [1] "numeric"

Modo numérico

4. NULL

mode(NULL)

## [1] "NULL"

Modo nulo

5. TRUE

mode(TRUE)

## [1] "logical"

Modo lógico

Punto 29

Diga si es verdadero o falso a. Todo entero se puede convertir en caracter?

as.character(3)

## [1] "3"

Verdadero

2. Todo caracter se puede convertir en numérico

as.numeric("a")

## Warning: NAs introducidos por coerción

## [1] NA

Falso

3. Un lógico se puede convertir en numérico

as.numeric(FALSE)

## [1] 0

Verdadero

4. Un lógico se puede convertir en caracter

as.character(TRUE)

## [1] "TRUE"

Verdadero

Punto 30

x1=1:200
x1[!(x1%%2 == 0) & !(x1%%3 == 0) & !(x1%%7 ==0)]

##  [1]   1   5  11  13  17  19  23  25  29  31  37  41  43  47  53  55  59
## [18]  61  65  67  71  73  79  83  85  89  95  97 101 103 107 109 113 115
## [35] 121 125 127 131 137 139 143 145 149 151 155 157 163 167 169 173 179
## [52] 181 185 187 191 193 197 199

Extrae los elementos del vector que no son divisibles por 2, 3 y 7.

Punto 31

zz=c(9:12, 1:5,3:7,0:6)
zz

##  [1]  9 10 11 12  1  2  3  4  5  3  4  5  6  7  0  1  2  3  4  5  6

duplicated(zz)

##  [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE
## [12]  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE

Indica en dónde hay elementos repetidos, imprimiendo “TRUE” donde el valor esté repetido.

zz[!duplicated(zz)]

##  [1]  9 10 11 12  1  2  3  4  5  6  7  0

Imprime los elementos no repetidos.

Punto 32

library(leaflet)
m= leaflet ()%>%
addTiles()%>%
addMarkers(lng=-74.059546, lat=4.644611, popup="Universidad de Lasalle")
m