Update pkgdown and vignettes

tidymodels · Jun 11, 2018 · 08f47ee · 08f47ee
1 parent 112145c
commit 08f47ee
Show file tree

Hide file tree

Showing 20 changed files with 377 additions and 164 deletions.
diff --git a/docs/articles/mtcars_examples.html b/docs/articles/mtcars_examples.html
diff --git a/docs/articles/observed_stat_examples.html b/docs/articles/observed_stat_examples.html
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-31-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-31-1.png
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-35-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-35-1.png
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-37-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-37-1.png
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-39-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-39-1.png
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-41-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-41-1.png
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-43-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-43-1.png
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-45-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-45-1.png
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-47-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-47-1.png
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-49-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-49-1.png
diff --git a/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-51-1.png b/docs/articles/observed_stat_examples_files/figure-html/unnamed-chunk-51-1.png
diff --git a/docs/articles/profiles_examples_both_methods.html b/docs/articles/profiles_examples_both_methods.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/reference/calculate.html b/docs/reference/calculate.html
diff --git a/man/calculate.Rd b/man/calculate.Rd
diff --git a/tests/testthat/test-calculate.R b/tests/testthat/test-calculate.R
@@ -82,7 +82,8 @@ test_that("grouping (explanatory) variable is a factor (two var problems)", {
   expect_error(calculate(gen_iris2, stat = "diff in means"))
   expect_error(calculate(gen_iris2, stat = "diff in medians"))
   # Since shifts to "Slope with t"
-  expect_silent(calculate(gen_iris2, stat = "t"))
+  ## Not implemented
+ # expect_silent(calculate(gen_iris2, stat = "t"))
 })
 
 test_that("grouping (explanatory) variable is numeric (two var problems)", {
@@ -289,12 +290,13 @@ test_that("Permute F test works", {
   expect_silent(calculate(gen_iris13, stat = "F"))
 })
 
-test_that("Permute slope test works", {
+test_that("Permute slope/correlation test works", {
   gen_iris14 <- iris %>%
     specify(Petal.Width ~ Petal.Length) %>%
     hypothesize(null = "independence") %>%
     generate(reps = 10, type = "permute")
   expect_silent(calculate(gen_iris14, stat = "slope"))
+  expect_silent(calculate(gen_iris14, stat = "correlation"))
 })
 
 test_that("order being given when not needed gives warning", {

diff --git a/vignettes/mtcars_examples.Rmd b/vignettes/mtcars_examples.Rmd
@@ -212,3 +212,12 @@ mtcars %>%
   calculate(stat = "slope")
 ```
 
+Two numerical vars - correlation
+
+```{r}
+mtcars %>%
+  specify(mpg ~ hp) %>% 
+  generate(reps = 100, type = "bootstrap") %>%
+  calculate(stat = "correlation")
+```
+