... Forgot to include for completeness: dat is as Jeff suggested:
both <- c(TRUE, FALSE)
dat <- expand.grid(both, both)
Bert Gunter
On Sat, Mar 12, 2022 at 10:33 AM Bert Gunter <bgunter.4...@gmail.com> wrote:
>
> As Tim pointed out, your query is rather vague. A reprex would have
> really helped here: please include them whenever possible in future
> queries.
>
> As Spencer said, a simple search would likely have yielded whatever
> you were seeking. Do make such efforts before posting.
>
> And as Jeff indicated, it's most likely straightforward to create a
> function that does what you want de novo. Here is such a function
> based on my guess of what you meant:
>
> tt <- function(tabl, fun)
> {## fun is a function that when applied rowwise to
> ## the logical data frame tabl yields a
> ## logical result
> cbind(tabl, Result = apply(tabl,1,fun))
> }
>
> ## some examples
> > tt(dat,any) ## or
> Var1 Var2 Result
> 1 TRUE TRUE TRUE
> 2 FALSE TRUE TRUE
> 3 TRUE FALSE TRUE
> 4 FALSE FALSE FALSE
>
> > tt(dat, all) ## and
> Var1 Var2 Result
> 1 TRUE TRUE TRUE
> 2 FALSE TRUE FALSE
> 3 TRUE FALSE FALSE
> 4 FALSE FALSE FALSE
>
> > tt(dat, function(x) !x[1] | x[2]) ## if-then
> Var1 Var2 Result
> 1 TRUE TRUE TRUE
> 2 FALSE TRUE TRUE
> 3 TRUE FALSE FALSE
> 4 FALSE FALSE TRUE
>
> Cheers,
> Bert Gunter
>
> "The trouble with having an open mind is that people keep coming along
> and sticking things into it."
> -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )
>
> On Sat, Mar 12, 2022 at 9:13 AM Jeff Newmiller <jdnew...@dcn.davis.ca.us>
> wrote:
> >
> > both <- c( FALSE, TRUE )
> > tt <- expand.grid( C = both
> > , B = both
> > , A = both
> > )
> > tt <- tt[, 3:1 ]
> >
> > On March 12, 2022 8:42:28 AM PST, Paul Bernal <paulberna...@gmail.com>
> > wrote:
> > >Dear friends,
> > >
> > >Hope you are doing great. I have been searching for a truth table generator
> > >in R, but everything I find has a Python implementation instead.
> > >
> > >Maybe there is in fact a truth table generator in R, but I am not searching
> > >in the right places?
> > >
> > >Any help and/or guidance will be greatly appreciated.
> > >
> > >Best regards,
> > >Paul
> > >
> > > [[alternative HTML version deleted]]
> > >
> > >______________________________________________
> > >R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > >https://stat.ethz.ch/mailman/listinfo/r-help
> > >PLEASE do read the posting guide
> > >http://www.R-project.org/posting-guide.html
> > >and provide commented, minimal, self-contained, reproducible code.
> >
> > --
> > Sent from my phone. Please excuse my brevity.
> >
> > ______________________________________________
> > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
