if (FALSE) {
data(caradat)
actogram(caradat$Date, caradat$Activity, dble=TRUE, photo=FALSE, dig=TRUE, fill="blue")
data(deerdat)
actogram(deerdat$Zeit, deerdat$Akt, grad=TRUE,from="2010-10-01 00:00:00",to="2011-03-31 00:00:00",
latitude=47.1415,longitude=9.5215,zone=1,twilight="nautic")
}
Run the code above in your browser using DataLab