Nothing
prolonged.sed.bouts.min <-
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})
lengths <- lengths.of.continuous.bouts.of.sed > n*(60/epoch)
return(sum(lengths.of.continuous.bouts.of.sed[lengths])/(60/epoch))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.