No tienes acceso a esta clase

¡Continúa aprendiendo! Únete y comienza a potenciar tu carrera

Estimación de parámetros con datos reales

31/37
Recursos

Aportes 5

Preguntas 1

Ordenar por:

¿Quieres ver más aportes, preguntas y respuestas de la comunidad?

Alguno por casualidad le salio este error ?

devtools::install_github(‘nebulae-co/saber’)
Downloading GitHub repo nebulae-co/saber@HEAD
Error in utils::download.file(url, path, method = method, quiet = quiet, :
download from ‘https://api.github.com/repos/nebulae-co/saber/tarball/HEAD’ failed

En mi caso tengo mac, la solución fue la siguiente en el orden establecido ( sin embargo si antes de instalar ´gert´ les aparece un error ´lib´ deben instalarlo desde la terminal con homebrew o algun manejador de paquetes asi:

<brew install libgit2> 

luego continuan en el orden establecido. )

![](https://static.platzi.com/media/user_upload/image-639b1562-2673-4559-b830-082ebe45f876.jpg) ![](https://static.platzi.com/media/user_upload/image-58725f0b-e3c9-4f01-a9dc-1e3911dab429.jpg) * Podrás identificar patrones, como una correlación positiva (puntajes altos en matemáticas suelen coincidir con puntajes altos en lenguaje) o dispersión sin patrón claro.

El paquete que se ocupara para este ejercicio es:

install.packages(“devtools”)

La fuente de los datos la extraemos con:

devtools::install_github(“nebulae-co/saber”)

Leemos la base de datos con la siguiente linea:

data(“SB11_20112”) #Esta tabla tiene 540,490 registros.
data(“SB11_20111”) # Esta tabla tiene 31,707 registros.

Ambas tablas tienen la misma estructura de datos, elige la conveniente segun las capacidades de tu computadora.

Codigo de la clase:

Paquetes ----------------------------------------------------------------

#install.packages(“devtools”)
#devtools::install_github(“nebulae-co/saber”)
#install.packages(“ggplot2”)
#install.packages(“dplyr”)

library(“saber”)

Carga de datos ----------------------------------------------------------

#data(“SB11_20111”) # 31707
data(“SB11_20112”)

#SB11_20112 %>% names()

iteraciones <- 38
tamano_muestral <- 27

plot(
mean(SB11_20112$MATEMATICAS_PUNT),
sd(SB11_20112$MATEMATICAS_PUNT),
pch = 20,
cex = 4,
col = “white”
)

for(i in seq_len(iteraciones)){
points(
mean(sample(SB11_20112$MATEMATICAS_PUNT, tamano_muestral)),
sd(sample(SB11_20112$MATEMATICAS_PUNT, tamano_muestral)),
pch = 20

)
}

points(
mean(SB11_20112$MATEMATICAS_PUNT),
sd(SB11_20112$MATEMATICAS_PUNT),
pch = 20,
cex = 4,
col = 2
)