quiz1

a1=2
a2=4
a3=6
a4=8
a5=10
a6=12
a<-c(a1=2,a2=4,a3=6,a4=8,a5=10,a6=12)
a

## a1 a2 a3 a4 a5 a6 
##  2  4  6  8 10 12

sa=a1+a2+a3+a4+a5+a6
sa

## [1] 42

pa=a1*a2*a3*a4*a5*a6
pa

## [1] 46080

b<-c(b1=1,b2=3,b3=5,b4=7,b5=9)
b

## b1 b2 b3 b4 b5 
##  1  3  5  7  9

a-b #no es posible clacular la resta entre los dos vectores porque tienen diferente catidad de elementos#

## Warning in a - b: longitud de objeto mayor no es múltiplo de la longitud de uno
## menor

## a1 a2 a3 a4 a5 a6 
##  1  1  1  1  1 11

nombre<-c("Juan","Juana","jhon","Jhoana","Jairo","Johan","Stiven","Karen","Vanessa","Diego","Fernando","Patricia")
edad<-c(20,21,22,23,24,25,26,27,28,29,30,31)
df<-data.frame(nombre,edad)
df

##      nombre edad
## 1      Juan   20
## 2     Juana   21
## 3      jhon   22
## 4    Jhoana   23
## 5     Jairo   24
## 6     Johan   25
## 7    Stiven   26
## 8     Karen   27
## 9   Vanessa   28
## 10    Diego   29
## 11 Fernando   30
## 12 Patricia   31

df$estrato<-c(1,2,3,4,5,6,1,2,3,4,5,6)
df

##      nombre edad estrato
## 1      Juan   20       1
## 2     Juana   21       2
## 3      jhon   22       3
## 4    Jhoana   23       4
## 5     Jairo   24       5
## 6     Johan   25       6
## 7    Stiven   26       1
## 8     Karen   27       2
## 9   Vanessa   28       3
## 10    Diego   29       4
## 11 Fernando   30       5
## 12 Patricia   31       6

df$nivel_de_estudio<-c("bachiller","bachiller","bachiller","secundaria","secundaria","secundaria","pregrado","pregrado","pregrado","postgrado","postgrado","postgrado")
df

##      nombre edad estrato nivel_de_estudio
## 1      Juan   20       1        bachiller
## 2     Juana   21       2        bachiller
## 3      jhon   22       3        bachiller
## 4    Jhoana   23       4       secundaria
## 5     Jairo   24       5       secundaria
## 6     Johan   25       6       secundaria
## 7    Stiven   26       1         pregrado
## 8     Karen   27       2         pregrado
## 9   Vanessa   28       3         pregrado
## 10    Diego   29       4        postgrado
## 11 Fernando   30       5        postgrado
## 12 Patricia   31       6        postgrado

Edwin<-data.frame(nombre="Edwin",edad=20,estrato=3,nivel_de_estudio="bachiller")
Julian<-data.frame(nombre="Julian",edad=10,estrato=2,nivel_de_estudio="primaria")
Catalina<-data.frame(nombre="Catalina",edad=5,estrato=2,nivel_de_estudio="primaria")
Patricio<-data.frame(nombre="Patricio",edad=36,estrato=2,nivel_de_estudio="tecnico")
df<-rbind(df,Edwin,Julian,Catalina,Patricio)
df

##      nombre edad estrato nivel_de_estudio
## 1      Juan   20       1        bachiller
## 2     Juana   21       2        bachiller
## 3      jhon   22       3        bachiller
## 4    Jhoana   23       4       secundaria
## 5     Jairo   24       5       secundaria
## 6     Johan   25       6       secundaria
## 7    Stiven   26       1         pregrado
## 8     Karen   27       2         pregrado
## 9   Vanessa   28       3         pregrado
## 10    Diego   29       4        postgrado
## 11 Fernando   30       5        postgrado
## 12 Patricia   31       6        postgrado
## 13    Edwin   20       3        bachiller
## 14   Julian   10       2         primaria
## 15 Catalina    5       2         primaria
## 16 Patricio   36       2          tecnico

library(readxl)
Libro1 <- read_excel("C:/Users/ESTUDIANTES 2025/Documents/CARPETA JOHAN RSTUDIO/Libro1.xlsx")
View(Libro1)