R/stand.min.AP.R

Defines functions stand.min.AP

Documented in stand.min.AP

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

Try the activpalProcessing package in your browser

Any scripts or data that you put into this service are public.

activpalProcessing documentation built on May 2, 2019, 2:17 a.m.