schnarrd

## severe_contrasts.R
#### OVERVIEW ####

set.seed(432432) # For reproducibility

# For all examples, I'm using the below sampling error sd and n per cell
err <- 1
n_per_cell <- 200
# I'm also assuming the following:
# (1) our smallest effect of substantive interest is .4
# (2) all contrasts are Helment (successively compare one group to the average of the others)
	#### OVERVIEW ####

	set.seed(432432) # For reproducibility

	# For all examples, I'm using the below sampling error sd and n per cell
	err <- 1
	n_per_cell <- 200
	# I'm also assuming the following:
	# (1) our smallest effect of substantive interest is .4
	# (2) all contrasts are Helment (successively compare one group to the average of the others)