# actman runner
rm(list = ls(pos = '.GlobalEnv', all.names = TRUE), pos = '.GlobalEnv')
unloadNamespace('ACTman')
library('ACTman', character.only = TRUE)
setwd("/Users/ando/Documents/actman/new")
# Test with ActiWatch data
#result <- ACTman(workdir = "/Users/ando/Documents/actman/mydataactiwatch", myACTdevice = "Actiwatch2")
# Test with MW8 data
result2 <- ACTman(workdir = "/Users/ando/Documents/actman/new",
sleepdatadir = "/Users/ando/Documents/actman/new",
iwantsleepanalysis = TRUE,
myACTdevice = "MW8")
View(result2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.