summary(cars)
## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00
library(modeest)
# PUNTO 1
operacionA = round((24/-8+7)/(9-6*(2)),1)
print(paste("EL RESULTADO ES: ", operacionA ))
## [1] "EL RESULTADO ES: -1.3"
operacionB = round(((2^3)*(-7)+4)-((1/3)+(1/2)),1)
print(paste("EL RESULTADO ES: ", operacionB ))
## [1] "EL RESULTADO ES: -52.8"
operacionC =round(((sqrt(16))+5*4-(3^-2))/(3*(4-8)+1),1)
print(paste("EL RESULTADO ES: ", operacionC ))
## [1] "EL RESULTADO ES: -2.2"
operacionD =round(1/2*(((5/4)-2^-1)*(13/4)-(sqrt(7))+8/(2-(1/5))-(3^2)),1)
print(paste("EL RESULTADO ES: ", operacionD ))
## [1] "EL RESULTADO ES: -2.4"
operacionE= round(2*(sin(pi/3))+5*(cos(pi/4))-(tan(pi/6)/4),1)
print(paste("EL RESULTADO ES: ", operacionE ))
## [1] "EL RESULTADO ES: 5.1"
operacionF= round(4*log2(5)-(3*log(7,base = (3)))+((1/3)*(log(8))^3),1)
print(paste("EL RESULTADO ES: ", operacionF ))
## [1] "EL RESULTADO ES: 7"
# PUNTO 2
GC=c(14.2,8,9.2,12.1,8.7,11.6,11,12.5,10,9,8.5,13.1,12.9,8.4,11.2,9.8,12.4,11,13,8.6)
NP=c(11,10,6,9,10,12,14,10,8,9,11,12,11,11,15,13,12,12,8,13)
VECTOR_IDS=c(1:20)
medianaGC=median(GC)
print(paste("LA MEDIANA DEL VECTOR GC ES", medianaGC ))
## [1] "LA MEDIANA DEL VECTOR GC ES 11"
medianaNP=median(NP)
print(paste("LA MEDIANA DEL VECTOR GC ES", medianaNP ))
## [1] "LA MEDIANA DEL VECTOR GC ES 11"
mediaGC=mean(GC)
print(paste("EL PROMEDIOP DEL VECTOR GC ES", mediaGC ))
## [1] "EL PROMEDIOP DEL VECTOR GC ES 10.76"
mediaNP=mean(NP)
print(paste("EL PROMEDIOP DEL VECTOR NP ES", mediaNP ))
## [1] "EL PROMEDIOP DEL VECTOR NP ES 10.85"
moda_vectprGC=mfv(GC)
print(paste("LA MODA DEL VECTOR NP ES", moda_vectprGC ))
## [1] "LA MODA DEL VECTOR NP ES 11"
moda_vectprNP=mfv(NP)
print(paste("LA MODA DEL VECTOR NP ES", moda_vectprNP ))
## [1] "LA MODA DEL VECTOR NP ES 11" "LA MODA DEL VECTOR NP ES 12"
VARIANZA_GC=var(GC)
print(paste("LA VARIANZA DEL VECTOR GC ES", VARIANZA_GC ))
## [1] "LA VARIANZA DEL VECTOR GC ES 3.66673684210526"
VARIANZA_NP=var(NP)
print(paste("LA VARIANZA DEL VECTOR NP ES", VARIANZA_NP ))
## [1] "LA VARIANZA DEL VECTOR NP ES 4.76578947368421"
DESVIACION_ESTANDARGC=sd(GC)
RAIZDEVARIANZA_GC=sqrt(VARIANZA_GC)
print(paste("LA DESVIACION ESTANDAR DEL VECTOR GC ES QUE SE PUEDE SACAR DE 2 FORMAS ES", DESVIACION_ESTANDARGC ))
## [1] "LA DESVIACION ESTANDAR DEL VECTOR GC ES QUE SE PUEDE SACAR DE 2 FORMAS ES 1.91487253938879"
DESVIACION_ESTANDARNP=sd(NP)
RAIZDEVARIANZA_NP=sqrt(VARIANZA_NP)
print(paste("LA DESVIACION ESTANDAR DEL VECTOR NP ES QUE SE PUEDE SACAR DE 2 FORMAS ES", RAIZDEVARIANZA_NP ))
## [1] "LA DESVIACION ESTANDAR DEL VECTOR NP ES QUE SE PUEDE SACAR DE 2 FORMAS ES 2.18306882018965"
CUARTILOGC= quantile(GC)
Q1GC=CUARTILOGC[1]
Q2GC=CUARTILOGC[2]
Q3GC=CUARTILOGC[3]
Q4GC=CUARTILOGC[4]
Q5GC=CUARTILOGC[5]
print(paste("EL RESULTADO ES: ", CUARTILOGC))
## [1] "EL RESULTADO ES: 8" "EL RESULTADO ES: 8.925"
## [3] "EL RESULTADO ES: 11" "EL RESULTADO ES: 12.425"
## [5] "EL RESULTADO ES: 14.2"
CUARTILONP= quantile(NP)
Q1NP=CUARTILONP[1]
Q2NP=CUARTILONP[2]
Q3NP=CUARTILONP[3]
Q4NP=CUARTILONP[4]
Q5NP=CUARTILONP[5]
print(paste("EL RESULTADO ES: ", CUARTILONP))
## [1] "EL RESULTADO ES: 6" "EL RESULTADO ES: 9.75" "EL RESULTADO ES: 11"
## [4] "EL RESULTADO ES: 12" "EL RESULTADO ES: 15"
barplot(GC,main = "GRAFICA DE VARIABLE GC",
ylim = c(0, 15),
ylab = "galones por semana",
xlab = "ID del taxista",
names.arg = VECTOR_IDS)
barplot(NP,main = "GRAFICA DE VARIABLE NP",
ylim = c(0, 18),
ylab = "# de personas x semana",
xlab = "ID del taxista",
names.arg = VECTOR_IDS)
barplot(table(GC),main = "cantidad de veces que se repiten los datos en GC",
ylab = "# de veces que se repite",
xlab = "Datos de GC")
barplot(table(NP),main = "cantidad de veces que se repiten los datos en NP",
ylab = "# de veces que se repite",
xlab = "Datos de NP",
)
# PUNTO 3
PHP=c(14,24.7,16.4,26,25.7,24.6)
TMI=c(8.8,10.2,8,9.1,8.2,9.4)
UBICACION=c("Central","Norte","Sur","Oriente","Oeste","Rural")
medianaPHP=median(PHP)
print(paste("EL RESULTADO ES: ", medianaPHP))
## [1] "EL RESULTADO ES: 24.65"
medianaTMI=median(TMI)
print(paste("EL RESULTADO ES: ", medianaTMI))
## [1] "EL RESULTADO ES: 8.95"
mediaPHP=mean(PHP)
print(paste("EL RESULTADO ES: ", mediaPHP))
## [1] "EL RESULTADO ES: 21.9"
mediaTMI=mean(TMI)
print(paste("EL RESULTADO ES: ", mediaTMI))
## [1] "EL RESULTADO ES: 8.95"
moda_vectprPHP=mfv(PHP)
print(paste("EL RESULTADO ES: ", moda_vectprPHP))
## [1] "EL RESULTADO ES: 14" "EL RESULTADO ES: 16.4" "EL RESULTADO ES: 24.6"
## [4] "EL RESULTADO ES: 24.7" "EL RESULTADO ES: 25.7" "EL RESULTADO ES: 26"
moda_vectprTMI=mfv(TMI)
print(paste("EL RESULTADO ES: ", moda_vectprTMI))
## [1] "EL RESULTADO ES: 8" "EL RESULTADO ES: 8.2" "EL RESULTADO ES: 8.8"
## [4] "EL RESULTADO ES: 9.1" "EL RESULTADO ES: 9.4" "EL RESULTADO ES: 10.2"
VARIANZA_PHP=var(PHP)
print(paste("EL RESULTADO ES: ", VARIANZA_PHP))
## [1] "EL RESULTADO ES: 27.808"
VARIANZA_TMI=var(TMI)
print(paste("EL RESULTADO ES: ", VARIANZA_TMI))
## [1] "EL RESULTADO ES: 0.655"
DESVIACION_ESTANDARPHP=sd(PHP)
print(paste("EL RESULTADO ES: ", DESVIACION_ESTANDARPHP))
## [1] "EL RESULTADO ES: 5.27332911925664"
DESVIACION_ESTANDARTMI=sd(TMI)
print(paste("EL RESULTADO ES: ", DESVIACION_ESTANDARTMI))
## [1] "EL RESULTADO ES: 0.809320702811932"
CUARTILOPHP= quantile(PHP)
print(paste("EL RESULTADO ES: ", CUARTILOPHP))
## [1] "EL RESULTADO ES: 14" "EL RESULTADO ES: 18.45"
## [3] "EL RESULTADO ES: 24.65" "EL RESULTADO ES: 25.45"
## [5] "EL RESULTADO ES: 26"
CUARTILOTMI= quantile(TMI)
print(paste("EL RESULTADO ES: ", CUARTILOTMI))
## [1] "EL RESULTADO ES: 8" "EL RESULTADO ES: 8.35"
## [3] "EL RESULTADO ES: 8.95" "EL RESULTADO ES: 9.325"
## [5] "EL RESULTADO ES: 10.2"
barplot(PHP,main = "GRAFICA DE VARIABLE PHP",
ylim = c(0, 30),
ylab = "% DE HOGARES POBRES",
xlab = "LOCALIDAD",
names.arg = UBICACION)
barplot(TMI,main = "GRAFICA DE VARIABLE TMI",
ylim = c(0, 15),
ylab = "TASA MORTALIDAD INFANTIL",
xlab = "LOCALIDAD",
names.arg = UBICACION)
# PUNTO 4
Genero=c("Masculino","Femenino")
Casado=c(8,12)
Soltero=c(14,9)
Otro=c(5,10)
Estado_conyugal=data.frame(Genero,
Casado,
Soltero,
Otro)
#comando para mostrar tabla es escribir el nombre
#del data_frame
Estado_conyugal
## Genero Casado Soltero Otro
## 1 Masculino 8 14 5
## 2 Femenino 12 9 10
## graficas de la tabla
barplot(Casado,main = "GRAFICA DE PERSONAS CASADAS",
ylim = c(0, 15),
ylab = "# de personas CASADAS",
xlab = "GENERO",
names.arg = Genero)
barplot(Soltero,main = "GRAFICA DE PERSONAS SOLTERAS",
ylim = c(0, 20),
ylab = "# de personas SOLTERAS",
xlab = "GENERO",
names.arg = Genero)
barplot(Otro,main = "GRAFICA DE PERSONAS EN OTRO TIPO DE RELACION",
ylim = c(0, 15),
ylab = "# de personas en OTRO ESTADO CONYUGAL",
xlab = "GENERO",
names.arg = Genero)
