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