Create get.data.R