data

easystats · Feb 18, 2019 · 81ea726 · 81ea726
1 parent 78fc250
commit 81ea726
Show file tree

Hide file tree

Showing 14 changed files with 6,010 additions and 610 deletions.
diff --git a/README.Rmd b/README.Rmd
@@ -56,7 +56,7 @@ library("circus")
 ## Models Creation
 
 ### Base
-```{r, warning=FALSE, message=FALSE, results="hide"}
+```{r, eval=FALSE, warning=FALSE, message=FALSE, results="hide"}
 htest_1 <- cor.test(iris$Sepal.Width, iris$Sepal.Length, method = "spearman")
 htest_2 <- cor.test(iris$Sepal.Width, iris$Sepal.Length, method = "pearson")
 htest_3 <- cor.test(iris$Sepal.Width, iris$Sepal.Length, method = "kendall")
@@ -82,7 +82,7 @@ glm_2 <- glm(vs ~ wt + cyl, data = mtcars, family=binomial(link="probit"))
 
 ### lme4
 
-```{r, warning=FALSE, message=FALSE, results="hide"}
+```{r, eval=FALSE, warning=FALSE, message=FALSE, results="hide"}
 library(lme4)
 
 lmerMod_1 <- lme4::lmer(wt ~ cyl + (1|gear), data = mtcars)
@@ -93,7 +93,7 @@ merMod_2 <- lme4::glmer(vs ~ cyl + (1|gear), data = mtcars, family=binomial(link
 
 ### Rstanarm
 
-```{r, warning=FALSE, message=FALSE, results="hide"}
+```{r, eval=FALSE, warning=FALSE, message=FALSE, results="hide"}
 library(rstanarm)
 
 stanreg_lm_1 <- rstanarm::stan_glm(mpg ~ wt + cyl, data = mtcars, chains=2)
@@ -113,7 +113,7 @@ stanreg_gam_1 <- rstanarm::stan_gamm4(mpg ~ s(wt) + cyl, data = mtcars, chains=2
 
 
 ## Save
-```{r, warning=FALSE, message=FALSE, results="hide"}
+```{r, eval=FALSE, warning=FALSE, message=FALSE, results="hide"}
 usethis::use_data(htest_1,
                   htest_2,
                   htest_3,

diff --git a/data/bootstrapped.csv b/data/bootstrapped.csv
diff --git a/data/stanreg_gam_1.rda b/data/stanreg_gam_1.rda
diff --git a/data/stanreg_glm_1.rda b/data/stanreg_glm_1.rda
diff --git a/data/stanreg_glm_2.rda b/data/stanreg_glm_2.rda
diff --git a/data/stanreg_lm_1.rda b/data/stanreg_lm_1.rda
diff --git a/data/stanreg_lm_2.rda b/data/stanreg_lm_2.rda
diff --git a/data/stanreg_lm_3.rda b/data/stanreg_lm_3.rda
diff --git a/data/stanreg_lmerMod_1.rda b/data/stanreg_lmerMod_1.rda
diff --git a/data/stanreg_merMod_1.rda b/data/stanreg_merMod_1.rda
diff --git a/data/stanreg_merMod_2.rda b/data/stanreg_merMod_2.rda
diff --git a/docs/articles/bootstrapped.html b/docs/articles/bootstrapped.html
diff --git a/docs/articles/bootstrapped_files/figure-html/unnamed-chunk-2-1.png b/docs/articles/bootstrapped_files/figure-html/unnamed-chunk-2-1.png
diff --git a/vignettes/bootstrapped.Rmd b/vignettes/bootstrapped.Rmd
@@ -48,7 +48,7 @@ extract_parameters <- function(model){
 library(ggplot2)
 
 data <- rbind(
-  generate_parent_population(noise=0.1),
+  generate_parent_population(noise=0.25),
   generate_parent_population(noise=0.5),
   generate_parent_population(noise=1),
   generate_parent_population(noise=1.5),
@@ -64,8 +64,8 @@ ggplot(data, aes(x=x, y=y)) +
 
 ## Creating Data
 ```{r eval=FALSE, message=FALSE, warning=FALSE, results='hide'}
-noises <- c(0.1, 0.5, 1, 1.5, 2, 2.5)
-iterations <- 100
+noises <- c(0.25, 0.5, 1, 1.5, 2, 2.5)
+iterations <- 1000
 sample_size <- 50
 
 final_data <- data.frame()