R/step.min.AP.R

In activpalProcessing: Process activPAL Events Files

Defines functions step.min.AP

Documented in step.min.AP

step.min.AP <-
function(posture,epoch=1)
{
	step.mins <- sum((posture=="2"),na.rm=T)/(60/epoch)
	if (step.mins==0)
		step.mins <- NA
	return(step.mins)
}

Try the activpalProcessing package in your browser