did a bunch of R exploration