tidy up R code
finished likert portion