ipaq {score} | R Documentation |
Scores 'International Physical Activity Questionnaire (IPAQ)'
Description
Scores 'International Physical Activity Questionnaire (IPAQ)' short form.
Usage
ipaq(ipaqdata)
Arguments
ipaqdata |
Data which consists of thirteen columns:
|
Value
Three additional columns [MET, kilocalories, pacat] are provided, to the data supplied to the function.
MET: | Metabolic Equivalent of Task. |
kilocalories: | Kilocalories are computed from MET-minutes. |
pacat: | Physical activity classification into 'Low', 'Moderate', or 'High'. |
Author(s)
Jaejoon Song <jjsong2@mdanderson.org>
References
Craig, C.L., et al. International physical activity questionnaire: 12-country reliability and validity. Med Sci Sports Exerc, 2003. 35(8): p. 1381-95.
The International Physical Activity Questionnaire. (2015, June 1). Retrieved from
http://www.ipaq.ki.se
Examples
## Generating a random IPAQ data for illustration
set.seed(1234)
n <- 20
ID <- rep(1:n)
weight <- rtnorm(n, mean=75, sd=15, lower=40, upper=120)
VigDays <- sample(rep(0:2),n,replace=TRUE)
VigHours <- sample(rep(0:1),n,replace=TRUE)
VigMin <- sample(rep(0:60),n,replace=TRUE)
VigHours <- ifelse(VigDays==0,0,VigHours)
VigMin <- ifelse(VigDays==0,0,VigMin)
ModDays <- sample(rep(0:3),n,replace=TRUE)
ModHours <- sample(rep(0:2),n,replace=TRUE)
ModMin <- sample(rep(0:60),n,replace=TRUE)
ModHours <- ifelse(ModDays==0,0,ModHours)
ModMin <- ifelse(ModDays==0,0,ModMin)
WalkDays <- sample(rep(0:7),n,replace=TRUE)
WalkHours <- sample(rep(0:2),n,replace=TRUE)
WalkMin <- sample(rep(0:60),n,replace=TRUE)
WalkHours <- ifelse(WalkDays==0,0,WalkHours)
WalkMin <- ifelse(WalkDays==0,0,WalkMin)
SitHours <- sample(rep(1:14),n,replace=TRUE)
SitMin <- sample(rep(1:60),n,replace=TRUE)
sampleIPAQ <- data.frame(ID, weight,
VigDays, VigHours, VigMin,
ModDays, ModHours, ModMin,
WalkDays, WalkHours, WalkMin,
SitHours, SitMin)
# Now scoring the data
output <- ipaq(ipaqdata=sampleIPAQ)
[Package score version 1.0.2 Index]