As indicated above, can\'t get the floor_date command to work. My code is the following:
new_data$month <- floor_date(new_data$datadate, "month")