Skip to content

Instantly share code, notes, and snippets.

@arademaker

arademaker/truth-tables.R

Created March 3, 2011 02:15
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save arademaker/852194 to your computer and use it in GitHub Desktop.
Save arademaker/852194 to your computer and use it in GitHub Desktop.
Download ZIP
constructing truth tables in R
Raw
truth-tables.R
library(gtools)
data <- permutations(2, 3, v = c(T,F), repeats.allowed=TRUE)
tt <- as.data.frame(data)
names(tt) <- letters[1:3]
tt$"! (a | b) | c" <- (!(tt$a | tt$b) | tt$c)
# unusual output!
xtable(tt)
print(xtable(sapply(tt, as.character)), include.rownames=F)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment