events_file <- system.file("extdata", "Test_Events.csv", package = "activPAL")
sleep_file <- system.file("extdata", "Sleep.csv", package = "activPAL")
output_folder <- paste(tempdir(),"/",sep="")
activPAL::activity.with.overlay.chart(events_file,sleep_file,output_folder)
Run the code above in your browser using DataLab