library(tidyverse)
ounad=read_csv("http://www.tlu.ee/~jaagup/andmed/muu/ounad/ounad_paevad_4.txt")
ounad
ounad %>% select(esmaspaev, reede) %>% chisq.test()