Added R script for extracting TUA data.