Add data usage notice

Author: ckadner

aif360/data/raw/meps/README.md

@@ -12,6 +12,15 @@ The Medical Expenditure Panel Survey (MEPS) data consists of large scale surveys
 * [2016 full Year Consolidated Data File](https://meps.ahrq.gov/mepsweb/data_stats/download_data_files_detail.jsp?cboPufNumber=HC-192): : This file contains MEPS survey data for calendar year 2016 obtained in rounds 3, 4, and 5 of Panel 20, and rounds 1, 2, and 3 of Panel 21. 
 
 
+## Data Use Agreement
+
+As the user of the data it is your responsibility to read and abide by any copyright/usage rules and restrictions as
+stated on the MEPS web site before downloading the data.
+
+- [Data Use Agreement (2015 Data File)](https://meps.ahrq.gov/data_stats/download_data/pufs/h181/h181doc.shtml#Data)
+- [Data Use Agreement (2016 Data File)](https://meps.ahrq.gov/data_stats/download_data/pufs/h192/h192doc.shtml#DataA)
+
+
 ## Download instructions
 
 In order to use the MEPS datasets with AIF360, please follow the following directions to download the datafiles and 
@@ -21,13 +30,14 @@ Follow either set of instructions below for using R or SPSS. Further instruction
 the [AHRQ MEPS Github repository](https://github.com/HHS-AHRQ/MEPS).
 
  - **Generating CSV files with R**
-
-    In the current folder run the R script `generate_data.R`. If you don't have R installed the easiest way to get the R
-    command line support on Mac OS X is by installing it with [Homebrew](https://brew.sh/) `brew install R`.  
+    
+    In the current folder run the R script `generate_data.R`. R can be downloaded from [CRAN](https://cran.r-project.org).
+    If you are working on Mac OS X the easiest way to get the R command line support is by installing it with 
+    [Homebrew](https://brew.sh/) `brew install R`.
 
     ```Bash
     cd aif360/data/raw/meps
-    Rscript create_data.R
+    Rscript generate_data.R
     ```
 
     Example output:

aif360/data/raw/meps/generate_data.R

@@ -1,5 +1,25 @@
 #!/usr/bin/env Rscript
 
+# This R script can be used to download the Medical Expenditure Panel Survey (MEPS)
+# data files for 2015 and 2016 and convert the files from SAS transport format into
+# standard CSV files.
+
+usage_note <- paste("",
+    "By using this script you acknowledge the responsibility for reading and",
+    "abiding by any copyright/usage rules and restrictions as stated on the",
+    "MEPS web site (https://meps.ahrq.gov/data_stats/data_use.jsp).",
+    "",
+    "Continue [y/n]? > ", sep = "\n")
+
+cat(usage_note)
+answer <- scan("stdin", character(), n=1, quiet=TRUE)
+
+if (tolower(answer) != 'y') {
+    opt <- options(show.error.messages=FALSE)
+    on.exit(options(opt))
+    stop()
+}
+
 if (!require("foreign")) {
     install.packages("foreign")
     library(foreign)
@@ -20,7 +40,7 @@ for (dataset in c("h181", "h192")) {
 
     # skip to next dataset if we already have the CSV file
     if (file.exists(csv_file)) {
-    	message(csv_file, " already exists")
+        message(csv_file, " already exists")
         next
     }