# NOT RUN {
# Data
data(twins)
tbl <- circ_compare_groups(twins, "rDYX", "sad_cat", "hour")
# Plot
library(ggplot2)
ggcircadian(tbl, outcome = "sad_cat") +
labs(title = "Example") +
scale_color_viridis_d(option = "A", begin = 0.0, end = 0.75)
# }
Run the code above in your browser using DataLab