figured out how to return s4 classes from s4 classes in rcpp. nifty\!