# NOT RUN {
# Violin plot comparing unfiltered and filtered demo data summaries by date for a single variable
## Summarise unfiltered demo
unfiltered_summary <- summarise_anidf(demo_unfiltered_elev, Date, Latitude, Longitude,
Distance, Course, Rate, Elevation, daily=FALSE)
## Summarise filtered demo
filtered_summary <- summarise_anidf(demo_filtered_elev, Date, Latitude, Longitude,
Distance, Course, Rate, Elevation, daily=FALSE)
## Join
summary <- join_summaries(unfiltered_summary, filtered_summary, "Date", daily=FALSE)
## Violin plot
violin_compare(summary, Date, "meanElev")
# }
Run the code above in your browser using DataLab