R/sed.min.AP.R

In activpalProcessing: Process activPAL Events Files

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