PUNTO 1

a=(24/-8+7)/(9-6*(2))
b=2^3*(-7)+4-((1/3)+(1/2))
c=(sqrt(16)+5*4-3^-2)/(3*(4-8)+1)
d=1/2*((5/4-1/2)*13/4-sqrt(7)+8/(2/1-1/5)-3^2)
e=2*sin(pi/3)+5*cos(pi/4)-tan(pi/6)/4
f=4*log2(5)-3*log(7,base=3)+1/3*log(8)^3

REDONDEAR LOS RESULTADOS FINALES PUNTO 2.2

a=round(a,1)
b=round(b,1)
c=round(c,1)
d=round(d,1)
e=round(e,1)
f=round(f,1)

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)

library(modeest)

#MODA

GC_MODA=mfv(GC)
print(GC_MODA)
## [1] 11
#MEDIANA
acom_GC = sort(GC)
GC_MEDIANA = median(acom_GC)
print(GC_MEDIANA)
## [1] 11
#MEDIA
GC_MEDIA = mean(GC)
print(GC_MEDIA)
## [1] 10.76
#DESVIACIÓN ESTÁNDAR
GC_DE = sd(GC)
d_1 = round(GC_DE, 2)
print(d_1)
## [1] 1.91
#VARIANZA
GC_VARIANZA = var(GC)
v_1 = round(GC_VARIANZA, 2)
print(v_1)
## [1] 3.67
#CUARTILES
GC_CUARTILES = quantile(GC)
print(GC_CUARTILES, 2)
##   0%  25%  50%  75% 100% 
##  8.0  8.9 11.0 12.4 14.2
#MODA
NP_MODA = mfv(NP)
print(NP_MODA)
## [1] 11 12
#MEDIANA
acom_NP = sort(NP)
NP_MEDIANA = median(acom_NP)
print(NP_MEDIANA)
## [1] 11
#MEDIA
NP_MEDIA = mean(NP)
print(NP_MEDIA)
## [1] 10.85
#DESVIACIÓN ESTÁNDAR
NP_DE = sd(NP)
d_2 = round(NP_DE, 2)
print(d_2)
## [1] 2.18
#VARIANZA
NP_VARIANZA = var(GC)
v_2 = round(NP_VARIANZA, 2)
print(v_2)
## [1] 3.67
#CUARTILES
NP_CUARTILES = quantile(NP)
print(NP_CUARTILES, 2)
##   0%  25%  50%  75% 100% 
##  6.0  9.8 11.0 12.0 15.0
#GRÁFICA 1
ID = c(1:20)
barplot(GC, names.arg = ID, col = "pink", xlab = "ID", ylab = "GC", main = "ID vs GC")

#GRÁFICA 2
barplot(NP, names.arg = ID, col = "pink", xlab = "ID", ylab = "NP", main = " ID vs NP")

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)

#MODA
PHP_MODA = mfv(PHP)
print(PHP_MODA)
## [1] 14.0 16.4 24.6 24.7 25.7 26.0
#MEDIANA
PHP_MEDIANA = sort(PHP)
PHP_MEDIANA = median(PHP_MEDIANA)
cat(PHP_MEDIANA, "%\n")
## 24.65 %
#MEDIA
PHP_MEDIA = mean(PHP)
cat(PHP_MEDIA, "%\n")
## 21.9 %
#DESVIACIÓN ESTÁNDAR
PHP_DE = sd(PHP)
DE_1 = round(PHP_DE, 2)
cat(DE_1, "%\n")
## 5.27 %
#MODA
TMI_MODA = mfv(TMI)
print(TMI_MODA)
## [1]  8.0  8.2  8.8  9.1  9.4 10.2
#MEDIANA
TMI_MEDIANA = sort(TMI)
TMI_MEDIANA = median(TMI_MEDIANA)
print(TMI_MEDIANA)
## [1] 8.95
#MEDIA
TMI_MEDIA = mean(TMI)
print(TMI_MEDIA)
## [1] 8.95
#DESVIACIÓN ESTÁNDAR
TMI_DE = sd(TMI)
DE_2 = round(TMI_DE, 2)
print(DE_2)
## [1] 0.81
#GRÁFICA 3
SEÑALA = c("Central", "Norte", "Sur", "Oriente", "Oeste", "Rural")
barplot(PHP, names.arg = SEÑALA, col = "pink", xlab = "Indicador", ylab = "PHP", main = "ZONA vs PHP")

#GRÁFICA 4
barplot(TMI, names.arg = SEÑALA, col = "pink", xlab = "Indicador", ylab = "TMI", main = "ZONA vs TMI")

PUNTO 2.5

datos = matrix(c("GÉNERO", "CASADO", "SOLTERO", "OTRO", "MASCULINO", 8, 14, 5, "FEMENINO", 12, 9, 10), nrow = 3, ncol = 4, byrow = TRUE)

DF = as.data.frame(datos)
colnames(DF) = c("__________", "    ", " ESTADO", " CONYUGAL")
print(DF)
##   __________         ESTADO  CONYUGAL
## 1     GÉNERO CASADO SOLTERO      OTRO
## 2  MASCULINO      8      14         5
## 3   FEMENINO     12       9        10
#GRÁFICA 5
Gente = c(8,14,12,9)
names(Gente) = c("Hombres casados", "Hombres solteros", "Mujeres casadas", "Mujeres solteras")

barplot(Gente, col = "pink", main = "POBLACIÓN CASADA Y SOLTERA")

#GRÁFICA 6
Pobla = c(20, 23)
names(Pobla) = c("Total de casados", "Total de solteros")

etiquetas = paste0(round(100 * Pobla/sum(Pobla), 2), "%")
pie(Pobla, labels = etiquetas, main = "TOTAL DE CASADOS Y SOLTEROS")