cleaned up data.R
cleaned up variables