Ben Whalley benwhalley

I hereby claim:

To claim this, I am signing this object:

	require('dplyr')
	require('rethinking')

	dmode <- function(x) {
	den <- density(x, kernel=c("gaussian"))
	( den$x[den$y==max(den$y)] )
	}

	meanhpdi <- function(x, prob=.95) {
	i <- rethinking::HPDI(x, prob=prob)


	-----------------------------------------------------------------------------------------------------------
	Participant BlockNo CueOrder Congruent auc auc.positive log.auc log.auc.positive Trial
	------------- --------- ---------- ----------- -------- -------------- --------- ------------------ -------
	1 1 1 FALSE 0 0 0 0 1

	1 1 2 TRUE 0 0 0 0 2

	1 1 3 FALSE 0 0 0 0 3


	f.10 <- log.auc.positive ~ log(CueOrder)Congruent + (1\|Participant) + (0+log(CueOrder)Congruent\|Participant)


	fit.10.stan <- stan_lmer(f.10, data=dftouse, iter=5000, chains=3)
	summary(fit.10.stan)

	fit.10.stan.preds <- posterior_linpred(fit.10.stan,
	transform=F,
	re.form=NA) %>%


	https://www.dropbox.com/s/76vg2ortmid2x6t/Session5.pptx?dl=0


	https://www.dropbox.com/s/76vg2ortmid2x6t/Session5.pptx?dl=0

	https://psy379-placebo.s3.amazonaws.com/index.html

	https://transfer.sh/adEXM/6-sem.pdf
	https://transfer.sh/FObPj/6-sem-extra.pdf