Create data_acq.R