R/mvpa.min.AP.R

In activpalProcessing: Process activPAL Events Files

Defines functions mvpa.min.AP

Documented in mvpa.min.AP

mvpa.min.AP <-
function(mets,epoch=1)
{
	mvpa.mins <- sum(mets>=3)/(60/epoch)
	if (mvpa.mins==0)
		mvpa.mins <- NA
	return(mvpa.mins)
}

Try the activpalProcessing package in your browser