punto 1

a <- (24/-8+7)
b <- 9-6*(2)

resultado1 <- a/b
resultado1
## [1] -1.333333
resultado2 <- 2^3*(-7)+4-((1/3)+(1/2))
resultado2
## [1] -52.83333
d = (sqrt(16)+5*4-3^-2)
e = (3*(4-8)+1)
resultado3 <- d/e

resultado4 <-1/2*((5/4-1/2)*13/4-sqrt(7)+8/(2/1-1/5)-3^2)
resultado4
## [1] -2.381903
resultado5 <- 2*sin(pi/3)+5*cos(pi/4)-tan(pi/6)/4
resultado5
## [1] 5.123247
resultado6 <- 4*log2(5)-3*log(7,base=3)+1/3*log(8)^3
resultado6
## [1] 6.971203

punto 2

L <- round(resultado1)
L
## [1] -1
K <- round(resultado2)
K
## [1] -53
J <- round(resultado3)
J
## [1] -2
J <- round(resultado4)
J
## [1] -2
H <- round(resultado5)
H
## [1] 5
H <- round(resultado6)
H
## [1] 7

punto 2.3

GC = c(14.2, 8.0, 9.2, 12.1, 8.7, 11.6, 11.0, 12.5, 10.0, 9.0, 8.5, 13.1, 12.9, 8.4, 11.2, 9.8, 12.4, 11.0, 13.0, 8.6)
NP = c(11, 10, 6, 9, 10, 12, 14, 10, 8, 9, 11, 12, 11, 11, 15, 13, 12, 12, 8, 13)


promedioGC = mean(GC)
promedioGC
## [1] 10.76
promedioNP = mean(NP)
promedioNP
## [1] 10.85
modaGC = mode(GC)
modaGC
## [1] "numeric"
modaNP = mode(NP)
modaNP
## [1] "numeric"
acomGC = sort(GC)
medianaGC = median(acomGC)
medianaGC
## [1] 11
acomNP = sort(NP)
mediana_NP = median(acomNP)
mediana_NP
## [1] 11
desviacionGC = sd(GC)
desviacion1 = round(desviacionGC, 3)
desviacion1
## [1] 1.915
desviacionNP = sd(NP)
desviacion2 = round(desviacionNP, 3)
desviacion2
## [1] 2.183
varianzaGC = var(GC)
varianza1 = round(varianzaGC, 3)
varianza1
## [1] 3.667
varianzaNP = var(NP)
varianza2 = round(varianzaNP, 3)
varianza2
## [1] 4.766
cuartilesGC = quantile(GC)
print(cuartilesGC,2)
##   0%  25%  50%  75% 100% 
##  8.0  8.9 11.0 12.4 14.2
cuartilesNP = quantile(NP)
print(cuartilesNP,2)
##   0%  25%  50%  75% 100% 
##  6.0  9.8 11.0 12.0 15.0
ID = c(1:20)
barplot(GC, names.arg = ID, col = "green", xlab = "ID", ylab = "GC", main = "ID vs GC")
mtext("Gráfica", side = 3, line = 3, cex = 1.2, font = 2)

barplot(NP, names.arg = ID, col = "orange", xlab = "ID", ylab = "NP", main = "ID vs NP")
mtext("Gráfica", side = 3, line = 3, cex = 1.2, font = 2)

Punto 2.4

PHP = c(14.0, 24.7, 16.4, 26.0, 25.7, 24.6)
TMI =c(8.8, 10.2, 8.0, 9.1, 8.2, 9.4)

mophp = mode(PHP)
(mophp)
## [1] "numeric"
moTMI = mode(TMI)
moTMI
## [1] "numeric"
promPHP = mean(PHP)
promPHP
## [1] 21.9
promTMI = mean(TMI)
promTMI
## [1] 8.95
dataPHP = sort(PHP)
medianaPHP = median(dataPHP)
medianaPHP
## [1] 24.65
dataTMI = sort(TMI)
medianaTMI = median(dataTMI)
medianaTMI
## [1] 8.95
desPHP = sd(PHP)
des1 = round(desPHP, 3)


desTMI = sd(TMI)
des2 = round(desTMI, 3)



INDICA = c("Central", "Norte", "Sur", "Oriente", "Oeste", "Rural")

barplot(PHP, names.arg = INDICA, col = "blue", xlab = "Indicador", ylab = "PHP", main = "Zona vs PHP")

barplot(TMI, names.arg = INDICA, col = "Orange", xlab = "Indicador", ylab = "TMI", main = "Zona vs TMI")
mtext("Gráfica", side = 3, line = 3, cex = 1.2, font = 2)

punto 2.5

dates = matrix(c("Género", "Casado", "Soltero", "Otro", "Masculino", 8, 14, 5, "Femenino", 12, 9, 10), nrow = 3, ncol = 4, byrow = TRUE)

pf = as.data.frame(dates)

colnames(pf) = c("--------", "    ", " Estado", " Conyugal")

pf
##    --------         Estado  Conyugal
## 1    Género Casado Soltero      Otro
## 2 Masculino      8      14         5
## 3  Femenino     12       9        10
perso = c(8,14,12,9)
names(perso) = c("Hombres casados", "Hombres solteros", "Mujeres casadas", "Mujeres solteras")

barplot(perso, col = "red", main = "Población Casada y Soltera")

Pobla = c(20, 23)
names(Pobla) = c("Total de casados", "Total de solteros")

eje = paste0(round(100 * Pobla/sum(Pobla), 2), "%")
pie(Pobla, labels = eje, main = "Total de casados y solteros en el estudio")