Printing Truth table in R