Description Usage Arguments Value Author(s) Examples
Race plots of minutes of activity per day, for several activity types
1 |
summary |
An object returned from function acc. |
title |
Title of the plot |
cex.title |
Font size of the title |
cex.text |
Font size of the race track labels |
cex.center |
Font size of the day indicator in the center of the plot |
color |
Color of the race tracks |
A plot is returned.
Jaejoon Song <jjsong2@mdanderson.org>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ## 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)
|
Loading required package: mhsmm
Loading required package: mvtnorm
Date wearTime Sedentary.minutes Sedentary.num.bouts MVPA.minutes
1 2017-01-01 977 612 26 112
2 2017-01-02 1226 915 23 177
3 2017-01-03 1187 932 31 97
4 2017-01-04 1440 1154 25 130
5 2017-01-05 1297 1061 26 74
6 2017-01-06 1218 963 20 86
7 2017-01-07 1091 894 23 61
MVPA.num.bouts
1 7
2 11
3 7
4 9
5 6
6 6
7 4
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.