true
Datos atípicos de Oceanía en Expectativa de
Vida:
En este caso el continente no cuenta con datos atípicos, es decir
que no se encuentran datos por debajo del límite inferior de experiencia
de vida 61 años.Tampoco cuenta con datos atípicos por encima del límite
superior de 80 años.
El 25% de la población tiene 71 años o menos.
El 50% de la población de oceanía tiene 73 años o más.
El 75% de la población tiene 73 años o menos
El código es:
oceania <- filter (gapminder, continent == "Oceania")
oceania
mean(oceania$lifeExp)
median(oceania$lifeExp)
summary(oceania$lifeExp)
boxplot(oceania)
boxplot
boxplot(oceania$lifeExp)
q1_oceania=quantile(oceania$lifeExp, 0.25)
q1_oceania
q2_oceania=quantile(oceania$lifeExp, 0.50)
q2_oceania
q3_oceania=quantile(oceania$lifeExp, 0.75)
q3_oceania
IQR(oceania$lifeExp)
rq_oceania=IQR(oceania$lifeExp)
rq
lsaf=(quantile(gapminder$lifeExp, 0.75))+1.5*rq_oceania
lsaf
lsaf=q3_oceania+1.5*rq_oceania
lsaf
lfaf=q1_oceania-(1.5*rq_oceania)
lfaf
atipicos_oceania<-filter(oceania,oceania$lifeExp<80.36675)
atipicos_oceania
Datos atípicos de Oceanía de Población:
En este caso el continente no cuenta con datos atípicos, es decir
que no se encuentran datos por debajo del límite inferior de población,
y tampoco cuenta con datos atípicos por encima del límite superior de 36
’313.840.
El 25% de la población es de 31 ’99.212 ó menos.
El 50% de la población es de 6 ’403.492 o más.
El 75% de la población es de 14 ’351.625 o menos.
El código es:
oceania <- filter (gapminder, continent == "Oceania")
oceania
mean(oceania$pop)
median(oceania$pop)
summary(oceania$pop)
boxplot(oceania)
boxplot
boxplot(oceania$pop)
q1_oceania=quantile(oceania$pop, 0.25)
q1_oceania
q2_oceania=quantile(oceania$pop, 0.50)
q2_oceania
q3_oceania=quantile(oceania$pop, 0.75)
q3_oceania
IQR(oceania$pop)
rq_oceania=IQR(oceania$pop)
rq
lsaf=(quantile(gapminder$pop, 0.75))+1.5*rq_oceania
lsaf
lsaf=q3_oceania+1.5*rq_oceania
lsaf
lfaf=q1_oceania-1.5*rq_oceania
lfaf
atipicos_oceania<-filter(oceania,oceania$<36313840)
atipicos_oceania
Datos atípicos de GDP Per Capita:
En este caso el continente no cuenta con datos atípicos en el GDP
Per Capita, es decir que no se encuentran datos por debajo del límite
inferior de producto interno bruto de la población de 2 ’033.471, y
tampoco cuenta con datos atípicos por encima del límite superior de 34
’322.5.
El 25% de la población tiene un GDP Per Capita de 14 ’141.86 ó
menos.
El 50% de la población tiene un GDP Per Capita de 17 ’983.3 o
más.
El 75% de la población tiene un GDP Per Capita de 22 ’214.12 o
menos.
El código es:
oceania <- filter (gapminder, continent == "Oceania")
oceania
mean(oceania$gdpPercap)
median(oceania$gdpPercap)
summary(oceania$gdpPercap)
boxplot(oceania)
boxplot
boxplot(oceania$gdpPercap)
q1_oceania=quantile(oceania$gdpPercap, 0.25)
q1_oceania
q2_oceania=quantile(oceania$gdpPercap, 0.50)
q2_oceania
q3_oceania=quantile(oceania$gdpPercap, 0.75)
q3_oceania
IQR(oceania$gdpPercap)
rq_oceania=IQR(oceania$gdpPercap)
rq
lsaf=(quantile(gapminder$gdpPercap, 0.75))+1.5*rq_oceania
lsaf
lsaf=q3_oceania+1.5*rq_oceania
lsaf
lfaf=q1_oceania-1.5*rq_oceania
lfaf
atipicos_oceania<-filter(oceania,oceania$<36313840)
atipicos_oceania
gapminder
q1_gapminder=quantile(gapminder$gdpPercap, 0.25)
q1_gapminder
q2_gapminder=quantile(gapminder$gdpPercap, 0.50)
q2_oceania
q3_gapminder=quantile(gapminder$gdpPercap, 0.75)
q3_gapminder