Create LewisData.R