Create data.r