R/interstt.R

Defines functions interstt

interstt <- 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
	}	

Try the TreePar package in your browser

Any scripts or data that you put into this service are public.

TreePar documentation built on May 1, 2019, 9:20 p.m.