library(tidyverse)
library(googlesheets)

g <- gs_title("Ed Psych Journal Editorial Boards 2018")
d <- gs_read(g)

m <- d %>%
    count(Seniority, Gender) %>%
    spread(Gender, n)

m <- m[, -1]

chisq.test(m)

ds <- d %>%
    count(Seniority, Gender)

res1 <- MASS::loglm(n ~ Seniority + Gender, data = ds)
summary(res1)