stanova/development.R at master · bayesstuff/stanova · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
library("devtools")
load_all()

document()

library("testthat")
devtools::test()
devtools::check()

### basic package things
usethis::use_build_ignore("development.R")
usethis::use_build_ignore("examples/")

use_package("rstanarm", type = "Suggests")
use_package("lme4")
use_package("emmeans", type = "Depends")
use_package("rstan")
use_package("MASS")

use_package("MEMSS", type = "Suggests")
use_package("afex", type = "Suggests")
use_package("glmmTMB", type = "Suggests")
use_package("bayesplot", type = "Suggests")
use_package("tidyverse", type = "Suggests")
use_test("stanova")
use_test("stanova_brm")

library(usethis)

# Create a new package -------------------------------------------------
create_package("stanova")
use_git()
use_testthat()
use_test("single_chain")
use_roxygen_md()
use_readme_rmd()
use_travis()
use_github_action_check_standard()


### still fails (due to emmeans):

# ## beta regression (fails somehow)
# data("GasolineYield", package = "betareg")
# str(GasolineYield)
#
# fit_beta <- stanova(yield ~ batch + temp, data = GasolineYield,
#                     model_fun = "betareg",
#                     link = "logit", link.phi = "log",
#                     chains = 2, iter = 500)
# summary(fit_beta)