Nothing
get.cycle.durations <-
function(dataset){
ncycles <- dim(dataset)[2]
durations <- NULL
for(i in 1:ncycles){
set1 <- rm.end.NAs(dataset[,i])
durations[i] <- length(set1)
}
return(durations)
}
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.