r stuff

commiting tests