Skip to content

Instantly share code, notes, and snippets.

@seankross
Created September 22, 2017 20:33
Show Gist options
  • Save seankross/c3b3351fa8deec6a22b29aed10bbc82b to your computer and use it in GitHub Desktop.
Save seankross/c3b3351fa8deec6a22b29aed10bbc82b to your computer and use it in GitHub Desktop.
For Stephan
steph <- structure(c(148L, 65L, 198L, 53L, 16L, 2004L), .Dim = c(3L, 2L
), .Dimnames = structure(list(c("EatNoTrans", "Request", "Stealing"
), c("0", "1")), .Names = c("", "")), class = "table")
chisq_steph <- chisq.test(steph)
chisq_steph$expected
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment