sastoudt

detach("package:boral",unload=T) ## get rid of old boral if you have it

wd = "" ## where you have bryophytes stored
setwd(wd)
load(file="bryophytes.rda")

J <- 30 ## downsample to make things faster
N <- 150

set.seed(322223)

sastoudt

library(dplyr)
library(ggplot2)

setwd("~/Desktop/tidytuesday/data/2020/2020-06-30")

comic_bechdel <- read.csv("comic_bechdel.csv", stringsAsFactors = F)

brks <- c(0, 0.25, 0.5, 0.75, 1)

dim(comic_bechdel) ## 308 9