E3P3D

Describa con sus propias palabras los siguientes conceptos:

Inferencia estadística:

Son las formas en las que extraemos conplusiones apartir de la información obtenida de la muestra.

Población:

Son un conjunto de habitantes de una misma especie con caracteristicas similares o que habiten en una region.

Muestreo:

Este es el seleccionar una fragmento de una población, esta debe de tener la propiedades parecidas a la población original.

Estadísticamente representativo:

Esta implica que debe de ser lo más precisa posible siendo este(en las muestras) de un tamaño lo sufientemente grande para que esta tenga las caracteristicas similares de la población original.

Hipótesis nula y alternativa:

Hipótesis nula es un valor del cual se suele obtener apartir de analisis previossiendo esta una respuesta inicial a la ingocnita, la hipotesis alternativa indica las diferencias que tiene el valor obtenido con el valor de la hipótesis nula.

Importancia del muestreo:

Para realizar una inveztigación que sea realmente de utilidad y veridica se necesita realizar un muestreo optimo para que los datos de la población sea lo mas representativa posibla y obtener una mayor precisión en los calculos de nuestra investigación.

#En este caso se utilizaran la base de datos de Salud
setwd("~/PyE")
xfun::embed_file("COVID_CONFIRMADOS_ESTADOS.xlsx")

Download COVID_CONFIRMADOS_ESTADOS.xlsx

#Incertar librerias
setwd("~/PyE")
library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2", "readxl")

#Importar datos
COVID <- read_excel("PyE/COVID_CONFIRMADOS_ESTADOS.xlsx")
View(COVID)
dim(COVID)

## [1]  33 181

datatable(COVID)

Muestreo

Realice un muestreo Aleatorio Simple

n <- 10
COVIDM <- sample(1:nrow(COVID), size=n, replace=FALSE)
COVIDM

##  [1] 27  4 22 25 31  5 11 16 18 17

COVIDM2 <- COVID[COVIDM, ]
head(COVIDM2)

## # A tibble: 6 x 181
##   cve_ent poblacion nombre `43842` `43843` `43844` `43845` `43846` `43847`
##     <dbl>     <dbl> <chr>    <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl>
## 1      27   2572287 TABAS~       0       0       0       0       0       0
## 2       4   1000617 CAMPE~       0       0       0       0       0       0
## 3      22   2279637 QUERE~       0       0       0       0       0       0
## 4      25   3156674 SINAL~       0       0       0       0       0       0
## 5      31   2259098 YUCAT~       0       0       0       0       0       0
## 6       7   5730367 CHIAP~       0       0       0       0       0       0
## # ... with 172 more variables: `43848` <dbl>, `43849` <dbl>, `43850` <dbl>,
## #   `43851` <dbl>, `43852` <dbl>, `43853` <dbl>, `43854` <dbl>, `43855` <dbl>,
## #   `43856` <dbl>, `43857` <dbl>, `43858` <dbl>, `43859` <dbl>, `43860` <dbl>,
## #   `43861` <dbl>, `43862` <dbl>, `43863` <dbl>, `43864` <dbl>, `43865` <dbl>,
## #   `43866` <dbl>, `43867` <dbl>, `43868` <dbl>, `43869` <dbl>, `43870` <dbl>,
## #   `43871` <dbl>, `43872` <dbl>, `43873` <dbl>, `43874` <dbl>, `43875` <dbl>,
## #   `43876` <dbl>, `43877` <dbl>, `43878` <dbl>, `43879` <dbl>, `43880` <dbl>,
## #   `43881` <dbl>, `43882` <dbl>, `43883` <dbl>, `43884` <dbl>, `43885` <dbl>,
## #   `43886` <dbl>, `43887` <dbl>, `43888` <dbl>, `43889` <dbl>, `43890` <dbl>,
## #   `43891` <dbl>, `43892` <dbl>, `43893` <dbl>, `43894` <dbl>, `43895` <dbl>,
## #   `43896` <dbl>, `43897` <dbl>, `43898` <dbl>, `43899` <dbl>, `43900` <dbl>,
## #   `43901` <dbl>, `43902` <dbl>, `43903` <dbl>, `43904` <dbl>, `43905` <dbl>,
## #   `43906` <dbl>, `43907` <dbl>, `43908` <dbl>, `43909` <dbl>, `43910` <dbl>,
## #   `43911` <dbl>, `43912` <dbl>, `43913` <dbl>, `43914` <dbl>, `43915` <dbl>,
## #   `43916` <dbl>, `43917` <dbl>, `43918` <dbl>, `43919` <dbl>, `43920` <dbl>,
## #   `43921` <dbl>, `43922` <dbl>, `43923` <dbl>, `43924` <dbl>, `43925` <dbl>,
## #   `43926` <dbl>, `43927` <dbl>, `43928` <dbl>, `43929` <dbl>, `43930` <dbl>,
## #   `43931` <dbl>, `43932` <dbl>, `43933` <dbl>, `43934` <dbl>, `43935` <dbl>,
## #   `43936` <dbl>, `43937` <dbl>, `43938` <dbl>, `43939` <dbl>, `43940` <dbl>,
## #   `43941` <dbl>, `43942` <dbl>, `43943` <dbl>, `43944` <dbl>, `43945` <dbl>,
## #   `43946` <dbl>, `43947` <dbl>, ...

COVIDMAS <- COVID %>%
  sample_n(size=n, replace=FALSE)
head(COVIDMAS)

## # A tibble: 6 x 181
##   cve_ent poblacion nombre `43842` `43843` `43844` `43845` `43846` `43847`
##     <dbl>     <dbl> <chr>    <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl>
## 1       6    785153 COLIMA       0       0       0       0       0       0
## 2      10   1868996 DURAN~       0       0       0       0       0       0
## 3      32   1666426 ZACAT~       0       0       0       0       0       0
## 4      17   2044058 MOREL~       0       0       0       0       0       0
## 5      15  17427790 MEXICO       0       0       0       0       0       0
## 6       8   3801487 CHIHU~       0       0       0       0       0       0
## # ... with 172 more variables: `43848` <dbl>, `43849` <dbl>, `43850` <dbl>,
## #   `43851` <dbl>, `43852` <dbl>, `43853` <dbl>, `43854` <dbl>, `43855` <dbl>,
## #   `43856` <dbl>, `43857` <dbl>, `43858` <dbl>, `43859` <dbl>, `43860` <dbl>,
## #   `43861` <dbl>, `43862` <dbl>, `43863` <dbl>, `43864` <dbl>, `43865` <dbl>,
## #   `43866` <dbl>, `43867` <dbl>, `43868` <dbl>, `43869` <dbl>, `43870` <dbl>,
## #   `43871` <dbl>, `43872` <dbl>, `43873` <dbl>, `43874` <dbl>, `43875` <dbl>,
## #   `43876` <dbl>, `43877` <dbl>, `43878` <dbl>, `43879` <dbl>, `43880` <dbl>,
## #   `43881` <dbl>, `43882` <dbl>, `43883` <dbl>, `43884` <dbl>, `43885` <dbl>,
## #   `43886` <dbl>, `43887` <dbl>, `43888` <dbl>, `43889` <dbl>, `43890` <dbl>,
## #   `43891` <dbl>, `43892` <dbl>, `43893` <dbl>, `43894` <dbl>, `43895` <dbl>,
## #   `43896` <dbl>, `43897` <dbl>, `43898` <dbl>, `43899` <dbl>, `43900` <dbl>,
## #   `43901` <dbl>, `43902` <dbl>, `43903` <dbl>, `43904` <dbl>, `43905` <dbl>,
## #   `43906` <dbl>, `43907` <dbl>, `43908` <dbl>, `43909` <dbl>, `43910` <dbl>,
## #   `43911` <dbl>, `43912` <dbl>, `43913` <dbl>, `43914` <dbl>, `43915` <dbl>,
## #   `43916` <dbl>, `43917` <dbl>, `43918` <dbl>, `43919` <dbl>, `43920` <dbl>,
## #   `43921` <dbl>, `43922` <dbl>, `43923` <dbl>, `43924` <dbl>, `43925` <dbl>,
## #   `43926` <dbl>, `43927` <dbl>, `43928` <dbl>, `43929` <dbl>, `43930` <dbl>,
## #   `43931` <dbl>, `43932` <dbl>, `43933` <dbl>, `43934` <dbl>, `43935` <dbl>,
## #   `43936` <dbl>, `43937` <dbl>, `43938` <dbl>, `43939` <dbl>, `43940` <dbl>,
## #   `43941` <dbl>, `43942` <dbl>, `43943` <dbl>, `43944` <dbl>, `43945` <dbl>,
## #   `43946` <dbl>, `43947` <dbl>, ...

Pregunta de rescate

¿La gente realmente quiere ser feliz o es una idea que nos vendieron? Yo sinceramente pienso que es una idea que nos vendieron con el paso del tiempo dado que nosotros mismos al tener un estatus social vamos a conseguir perjudicarnos constantemente debido a las deciciones tomadas por nosotros mismos para alcanzar esa felicidad que probablemente se inalcanzable debido a que somos seres que buscan siempre una mejora en las cosas que ven.

Para descargar el codigo de este examen:

xfun::embed_file("E3P3D.rmd")

Download E3P3D.rmd

Documento publicado en: https://rpubs.com/DanielTurvino/637559

E3P3D

Daniel Turvino

9/7/2020