[fred_and_fred]

The code for an R version of this is on Github at https://github.com/two-by-two

There is a limited demo there as well.