quiz

1. Crear un vector

v<-c(1, 2, 3, 4, 5)

2. Crear un objeto

l="Yandry"

3. Crear un dataframe

nombre<-c("Yandry","Nicolas","Dirley","pepito","Andrea","Carlos")
edad<-c(19,20,19,20,23,18)
Datos<-data.frame(nombre, edad)
Datos

##    nombre edad
## 1  Yandry   19
## 2 Nicolas   20
## 3  Dirley   19
## 4  pepito   20
## 5  Andrea   23
## 6  Carlos   18

Ejercicios: 1. Crea un vector a con los valores 2, 4, 6, 8, 10, 12.

a<-c(2, 4, 6, 8, 10, 12)

2. Calcula la suma de los elementos del vector a.

sum(a)

## [1] 42

3. Calcula el producto de los elementos del vector a.

prod(a)

## [1] 46080

4. Crea un vector b con los valores 1, 3, 5, 7, 9. Calcula la diferencia entre los elementos del vector a y el vector b.

b<-c(1, 3, 5, 7, 9, 10)
print(a-b)

## [1] 1 1 1 1 1 2

5. Crear dos vectores y calcular: Suma, producto, potenciación, radicación

x<-c(1, 3, 5, 7)
y<-c(2,4,6,8)
f=x+y
print(f)

## [1]  3  7 11 15

j=x*y
print(j)

## [1]  2 12 30 56

h=x^y
print(h)

## [1]       1      81   15625 5764801

print(sqrt(x))

## [1] 1.000000 1.732051 2.236068 2.645751

print(sqrt(y))

## [1] 1.414214 2.000000 2.449490 2.828427

6. Comparar dos cantidades que sean iguales y dos diferentes.

17==8

## [1] FALSE

6==6

## [1] TRUE

7. Crea un nuevo data frame df2 con las columnas nombre y edad de las personas que viven en la ciudad de “Neiva”. Agrega 12 filas con datos ficticios. De lo anterior Calcula el número de personas que viven en cada ciudad en el data frame df

nombre<-c("Yandry","Nicolas","Dirley","pepito","Andrea","Carlos", "Camila", 
          "Jorgue", "Andrew", "Gabriela", "Cielo", "Lineth")
edad<-c(19,20,19,20,23,18, 22, 30, 40, 55, 18, 7)
ciudad<-c("Neiva","Algeciras", "Neiva","Medellin", "Barranquilla","Neiva","Neiva","Pereira","Neiva","Neiva","Cali","Neiva")
Datos<-data.frame(nombre, edad, ciudad)
Datos

##      nombre edad       ciudad
## 1    Yandry   19        Neiva
## 2   Nicolas   20    Algeciras
## 3    Dirley   19        Neiva
## 4    pepito   20     Medellin
## 5    Andrea   23 Barranquilla
## 6    Carlos   18        Neiva
## 7    Camila   22        Neiva
## 8    Jorgue   30      Pereira
## 9    Andrew   40        Neiva
## 10 Gabriela   55        Neiva
## 11    Cielo   18         Cali
## 12   Lineth    7        Neiva

8. Agregar dos columnas: Estrato, nivel de estudios, al anterior dataframe

Datos$estrato<-c(1,2,1,1,2,1,1,1,1,3,1,1)
Datos$nivel_de_estudios<-c("primaria","primaria","bachiller","universitaria","primaria","primaria","bachiller","primaria","bachiller","primaria","universitaria","primaria")

Datos

##      nombre edad       ciudad estrato nivel_de_estudios
## 1    Yandry   19        Neiva       1          primaria
## 2   Nicolas   20    Algeciras       2          primaria
## 3    Dirley   19        Neiva       1         bachiller
## 4    pepito   20     Medellin       1     universitaria
## 5    Andrea   23 Barranquilla       2          primaria
## 6    Carlos   18        Neiva       1          primaria
## 7    Camila   22        Neiva       1         bachiller
## 8    Jorgue   30      Pereira       1          primaria
## 9    Andrew   40        Neiva       1         bachiller
## 10 Gabriela   55        Neiva       3          primaria
## 11    Cielo   18         Cali       1     universitaria
## 12   Lineth    7        Neiva       1          primaria

9. Agregar cuatro filas de datos ficticios

Isabela<-data.frame(nombre="Isabela",edad=19,ciudad="Neiva",estrato=2, nivel_de_estudios="universitaria")
Valentina<-data.frame(nombre="Valentina",edad=21,ciudad="Neiva",estrato=2, nivel_de_estudios="universitaria")
Isabela<-data.frame(nombre="Isabela",edad=19,ciudad="Neiva",estrato=2, nivel_de_estudios="universitaria")
Valentina<-data.frame(nombre="Valentina",edad=21,ciudad="Neiva",estrato=2, nivel_de_estudios="universitaria")
Datos<-rbind(Datos, Isabela, Valentina, Isabela, Valentina)

Datos

##       nombre edad       ciudad estrato nivel_de_estudios
## 1     Yandry   19        Neiva       1          primaria
## 2    Nicolas   20    Algeciras       2          primaria
## 3     Dirley   19        Neiva       1         bachiller
## 4     pepito   20     Medellin       1     universitaria
## 5     Andrea   23 Barranquilla       2          primaria
## 6     Carlos   18        Neiva       1          primaria
## 7     Camila   22        Neiva       1         bachiller
## 8     Jorgue   30      Pereira       1          primaria
## 9     Andrew   40        Neiva       1         bachiller
## 10  Gabriela   55        Neiva       3          primaria
## 11     Cielo   18         Cali       1     universitaria
## 12    Lineth    7        Neiva       1          primaria
## 13   Isabela   19        Neiva       2     universitaria
## 14 Valentina   21        Neiva       2     universitaria
## 15   Isabela   19        Neiva       2     universitaria
## 16 Valentina   21        Neiva       2     universitaria

10. Cargar un excel que contenga los anteriores datos

library(readxl)
quiz <- read_excel("C:/Users/Equipo/Downloads/quiz.xlsx")
View(quiz)