cleaned up data.R