ipaq: Scores 'International Physical Activity Questionnaire (IPAQ)'

In score: A Package to Score Behavioral Questionnaires

Description

Scores 'International Physical Activity Questionnaire (IPAQ)' short form.

Usage

ipaq(ipaqdata)

Arguments

ipaqdata

Data which consists of thirteen columns: Column 1: ID Column 2: Weight Column 3: VigDays: Number of days doing vigorous physical activity per week Column 4: VigHours: Number of hours in vigorous physical activity per day Column 5: VigMin: Number of minutes in vigorous physical activity per day Column 6: ModDays: Number of days doing moderate physical activity per week Column 7: ModHours: Number of hours in moderate physical activity per day Column 8: ModMin: Number of minutes in moderate physical activity per day Column 9: WalkDays: Number of days walking per week Column 10: WalkHours: Number of hours walking per day Column 11: WalkMin: Number of minutes in walking per day Column 12: SitHours: Number of hours sitting per day Column 13: SitMin: Number of minutes sitting per day

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 <[e-mail]>

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)

Example output

Loading required package: msm

score documentation built on May 2, 2019, 12:26 p.m.