Corregir variable

felipegonzalez · Sep 26, 2019 · 8dba202 · 8dba202
1 parent 08353cb
commit 8dba202
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/04-inferencia.Rmd b/04-inferencia.Rmd
@@ -274,7 +274,7 @@ reps <- lineup(null_permute("grupo"), muestra_tab, n = 20)
 reps_mezcla <- reps %>%  mutate(grupo_1 = factor(digest::digest2int(grupo) %% 177))
 grafica_cuantiles(reps_mezcla, grupo_1, x) + 
     facet_wrap(~.sample, ncol = 5) + ylab("x") + 
-    labs(caption = "Mediana y percentiles 10% y 90%")+ geom_point(aes(colour = grupo_escondido))
+    labs(caption = "Mediana y percentiles 10% y 90%")+ geom_point(aes(colour = grupo_1))
 ```
 
 Y la pregunta que hacemos es **podemos distinguir nuestra muestra entre todas las