Create toydata.r

To run wranglR with the toy data, simply run this script and then call wranglR as such:
wranglR(NULL,XT,Groups,A=F)