New Test Scripts

Basic stuff. Trying to work my way around RStudio.