Ben Whalley benwhalley

	{
	// Mailmate keybindings
	"\U007F" = "archive:"; // ⌫
	"@\U007F" = "deleteMessage:"; // ⌘+⌫
	" " = "scrollPageDownOrNextUnreadMessage:";

	"@S" = "saveAttachments:";

	// Based on: https://mail.google.com/support/bin/answer.py?answer=6594

	library(brms)
	library(tidyverse)

	m1 <- rstanarm::stan_glm(mpg~wt, data=mtcars)
	prior_summary(m1)

	# see what priors brms will let you set
	get_prior(mpg~wt, data=mtcars)
	# then then mimic beta priors from rstanarm (inc rstanarm autoscaling)
	m2 <- brm(mpg~wt, data=mtcars, sample_prior="only",


	Prior <- c(set_prior("normal(0, 30)", class = "b"))

	options(mc.cores=parallel::detectCores ()-1)


	f.interaction <- bf(Pressure ~ Awareness *
	Agency *
	Resp.Alt *
	VisualPrime *

	---
	title: Quantifying uncertainty
	output: html_document
	---

	```{r}
	library(tidyverse)
	```

	---
	title: "Untitled"
	output: html_document
	---

	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = TRUE)
	```

	sprintcol <- function(x, sig.digits = 3) {
	rounded <- paste(signif(x, sig.digits))
	max.decimal <-
	str_extract(rounded, "\\.(\\d+)") %>%
	str_length() %>%
	max(c(0, .), na.rm = T) - 1
	max.decimal <- max(max.decimal, min(abs(max.decimal), 0))
	sprintf(fmt = glue::glue("%.{max.decimal}f"), x)
	}