Initial Commit

Added some test code to figure out the R unzip function