Nothing
insess <-
function(ltvec, varind, varsessions){
res <- lapply(1:length(ltvec), function(z){
idind <- names(ltvec)[z]
idpop <- as.character(unique(varind$pop[varind$ind==idind]))
bsess <- as.numeric(t(as.matrix(varsessions[varsessions$pop==idpop,c("startnum", "endnum")])))
ltvecok <- ltvec[[z]][-length(ltvec[[z]])]
insess <- findInterval(ltvecok, bsess) %% 2
return(insess)
})
res <- do.call("c", res)
names(res) <- NULL
return(res)
}
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.