inter <- function(time,t) { res<-1 j=0 i=1 while (j==0) { if (i==length(t)){ j=1 } else { if (time<=t[i+1]) {j=1} else {i<-i+1} } } i }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.