R/sed.min.AP.R

Defines functions sed.min.AP

Documented in sed.min.AP

sed.min.AP <-
function(posture,epoch=1)
{
	sed.mins <- sum((posture==0),na.rm=T)/(60/epoch)
	if (sed.mins==0)
		sed.mins <- NA
	return(as.numeric(sed.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.