Create viewData.R