## Not run:
# library(acc)
# ##
# ## Example: Simulate a dataset for seven days, for an individual with low MVPA level.
# ##
# mvpaModData <- simAcc(timelength=(60*24*7),paLevel='moderate')
#
# summary1 <- acc(data=mvpaModData, tri='FALSE', axis='NULL',
# spuriousDef=20, nonwearDef=60, minWear=600,epoch=c('1 min','1 min'),
# patype=c('Sedentary','MVPA'),pacut=c(c(0,99),c(1952,Inf)),
# boutsize=c(10,10), tolerance=c('FALSE','TRUE'))
# summary1
#
# racePlot(summary1,title="Summary of Physical Activity Per Day",
# cex.title=1,cex.text=1.2)
# ## End(Not run)
Run the code above in your browser using DataLab