Test script created in RStudio