R/prolonged.sed.bouts.num.R

In activpalProcessing: Process activPAL Events Files

prolonged.sed.bouts.num <-
function(posture,epoch=1,n) {
	acts <- posture == 0
	lengths.of.continuous.bouts.of.sed <- apply(as.matrix(strsplit(paste(acts, collapse=""), split="FALSE", fixed=TRUE)[[1]]), 1, function(x) {nchar(x)/4})
	inds.lengths <- (1:length(lengths.of.continuous.bouts.of.sed))[lengths.of.continuous.bouts.of.sed>n*(60/epoch)]
	return(length(inds.lengths))
}