don't load arm just for invlogit

Arsenic/arsenic_logistic_apc.R

@@ -16,7 +16,7 @@ root<-has_dirname("RAOS-Examples")$make_fix_file()
 library("rstanarm")
 options(mc.cores = parallel::detectCores())
 library("loo")
-library("arm")
+invlogit <- plogis
 
 #' **Load data**
 wells <- read.csv(root("Arsenic/data","wells.csv"))

Arsenic/arsenic_logistic_building.R

@@ -16,7 +16,7 @@ root<-has_dirname("RAOS-Examples")$make_fix_file()
 library("rstanarm")
 options(mc.cores = parallel::detectCores())
 library("loo")
-library("arm")
+invlogit <- plogis
 
 #' **Load data**
 wells <- read.csv(root("Arsenic/data","wells.csv"))

Arsenic/arsenic_logistic_residuals.R

@@ -16,7 +16,7 @@ root<-has_dirname("RAOS-Examples")$make_fix_file()
 library("rstanarm")
 options(mc.cores = parallel::detectCores())
 library("loo")
-library("arm")
+invlogit <- plogis
 
 #' **Load data**
 wells <- read.csv(root("Arsenic/data","wells.csv"))

ElectricCompany/electric.R

@@ -13,9 +13,9 @@
 #+ setup, message=FALSE, error=FALSE, warning=FALSE
 library("rprojroot")
 root<-has_dirname("RAOS-Examples")$make_fix_file()
-library("arm")
 library("rstanarm")
 options(mc.cores = parallel::detectCores())
+invlogit <- plogis
 
 #' **Load data**
 electric <- read.table(root("ElectricCompany/data","electric.dat"), header=TRUE)

Golf/golf.R

@@ -17,10 +17,10 @@ savefigs <- FALSE
 #+ setup, message=FALSE, error=FALSE, warning=FALSE
 library("rprojroot")
 root<-has_dirname("RAOS-Examples")$make_fix_file()
-library("arm")
 library("rstan")
 rstan_options(auto_write = TRUE)
 options(mc.cores = parallel::detectCores())
+invlogit <- plogis
 
 #' **Set up the data**
 golf <- read.table(root("Golf/data","golf.txt"), header=TRUE, skip=2)

Poststrat/poststrat2.R

@@ -13,7 +13,7 @@
 #+ setup, message=FALSE, error=FALSE, warning=FALSE
 library("rstanarm")
 options(mc.cores = parallel::detectCores())
-library("arm")
+invlogit <- plogis
 
 #' **Create some fake data**
 #'